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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS her I$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
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+ ABSTRACT: 
00 : Main routine BPASFSS and associated routines parse a 
ste RSTS= or VMS-type filespec. 
: Ones ENVIRONMENT: Native mode VAX processor, User mode. 
¢? Does AUTHOR: Jim Ibbett , CREATION DATE: 25-Oct-79 
45 G94s ; MODIFIED BY: 
4 90e? i 1-002 - Repete. version number, and interface to system build procedures. 
48 0048 ‘ 2-DEC-1979 
49 49 ! 1-003 - Replace MOVTUC builtin with a routine cathe ot © _sxeid problems dealing 
0 50 : errectiy with registers in aLiSs. as Be-oe 0 rat 
1 51 ! 1-004 - Use RIL'S standard PSECT neces. 
5 25 ! 1-005 - BPs SS should check if a tdcard. was inserted” {n theF IRQB and 
: 5 ! not just if fqnaml or von si s nee eare (RAD_5 wesnever 
4 54 ' being ¢ called, instead Me . Ly ust in the « 
55 55 ! dcards.) Also, cal 0 twice whether Ay _- at is 
56 Bes : six characters or not. so . oar garbage isn't returned to the 
57 5 ! user. PLL 20-Jun-81 
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3; 6 61 1! 

Be °¢ 1 ! SWITCHES: 

; 68 be} 

: e O88 } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; «668 06? 1! 

; Ww 068 1 ! TABLE OF CONTENTS: 

; 70 oH 13 

Pr. 070 1 

: &£ 0071 1 FORWARD ROUTINE 

ae: Bore 1 bpa$fss ! Performs pre-parsing 

3; «674 Bae 1 find switch, ! Parses any switches 

; #75 074 #1 rad_50, ' Converts from ascii to rad50 
s 0075 1 translate_dev, ' Convert RSTS device to VMS device 
- oe 0076 1 bpaSfile_scan; ! Performs parsing & fills 0/P blocks 
san 0077 1 

.- 0078 1! 

; 80 0079 1 ! INCLUDE FILES: 

3.6 CB 0080 1! 

; §8 0081 1 

; 8 0082 1 LIBRARY ‘RTLSTARLE'; 

; = 84 0085 1 

H 3? Bo r } REQUIRE ‘RTLIN:BPASTRUCT'; 

c. or 0176 1 REQUIRE ‘RTLIN:BPAFSBDEF'; 

; «88 0307 1 

: 89 0308 1 REQUIRE 'RTLIN:BPAFQBDEF'; 

; bess 1 

; Bes 1 REQUIRE "RTLIN:RTLPSECT'; 

; 3g 528 1 

; FF #94 1! 

>; 94 0530 1 ! MACROS: 

; 2 bea) 1! 

; &* 05 § 1! NONE 

; | «67 0533 1! 

; 0534 1 ! EQUATED SYMBOLS: 

; (99 0535 1! 

; 100 b238 1 

; 101 537 1 LITERAL . ’ 
3 106 0538 1 bpa$k_def_prot = 60; ! Default protection code if none given 
; 10 0539 1 

: 104 0540 1! 

: 105 541 1 ! PSECTS: 

; 106 2¢¢ 1: 

: 107 543 1 declare_psects (bpa); 

; 108 544 1! 

3: 109 0545 1 ! OWN STORAGE: 

; 110 368 1! 

3.6111 547 1 

: 6 548 1 GLOBAL 

3; 611 549 1 bpa$gb_usr_prot : BLOCK (1, Byte}. ! default pres code 

3; (114 550 1 bpa$gb_usr_real : BLOCK (1, BYTEJ, ! prot_real if -1 : 

: BF 23) ' bpa$al_usrppn : VECTOR C2, LONG); ! user ppn string descriptor 
3 113 328 1! 

; «118 554 1 ! EXTERNAL REFERENCES: 


ny 


4 
(2) 


Page 


wo 
4 
@ 
noe 
S€ 
«a 
tcc | 
ev } 
oae®& | 
-—-— 
Ss- 
cue | 
ae | 
hd eno ea | 
wo aon 
+ aoe 
3 aad and ad } 
= | —— 
°o ee } 
€ | 
ww" 
- 
pm 
ro) 
c 
- 
so 
a 
ow 
| 
wn 
aw 
co 
°o 
v 
. 
°o 
he 
oe i= 
uw wo 
> 
=! a 
=< = 
=e ew 
oOo 
oz ct) eee 
C4 e oe 
aur @e “ne 
weed a# =3C€¢ 
z2zom—v o yi 
OD c a Bee 
-2 we - wc ae 
> te> z od 
owed °o Ss 
Qece =~ Peer 
on — eee 
AA °o SAAA 
<x<se0@ - qununwn 
Zzaaa Zzeean 
econo ay econo 
w — w 
_ oo i 
oe + q =< 
—-. ws ome w 


Cr CO OO CO OO 


MWOP-DAO— CUM TNO OOO 
WINAUNN OOOO 000000r 


DOK MUMTMNOR DOOR WM 
FAUNA CUM 


a 


mn 8 
16-Sep-1984 01:33:55 VAX=11. BLiss-32_v4.0-74 p 
1e-8ep-1984 11:56:50 EBASRTL SRE SBPAFSS.B36+1 29¢ 3) 


GLOBAL ROUTINE bpaSfss (fqb_ptr, fsb_ptr, buf_ptr, byt_cnt) = 
Vag 


i FUNCTIONAL DESCRIPTION: 


On entry, a filespec is described by buf _ptr/byt_cnt. 
The string is pre-parsed (remove nulls/spaces, convert 
lowercase to uppercase strip parity, etc) and a 
call made to B ASFILE_SCAN which parses the Tyee F 
On return, any switches are decoded and the FLAGWORDS, 
czeee ere FSB are loaded. Status is returned to 

e caller. 


FORMAL PARAMETERS: 


fab_ptr.rla.v 
fsb_ptr.rla.v 
buf_ptr.rla.v 
byt_cnt.rlu.v 


IMPLICIT INPUTS: 


bpa$al_usrppn - descriptor for user ppn string 

bpa$gb_usr_prot - default prot code 

bpa$gb_usr_real = non-zero to indicate bpa$gb_usr_prot has 
been initialised 


espec $s 9g ; 
the filespec string 


longword address of FIR 
longword address of FSB 
longword address of fil 
contains the length of 
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IMPLICIT OUTPUTS: 


FQB = the FIRQB, contains information as for 
the RSTS/E V7 .FSS call 


FSB = contains descriptor for the parsed string 
and ‘XRB' flagwords, as shown below. 
(see $fsb_def for details of fields/bits) 
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0609 teeeeenen------- teoeeen eS ce o----- ----+ 
0610 ! filespec Length ! 
0611 ot oa teesee- ee + 
Belg ! filespec address >a 
061 temw mene nen e nen n teow een w nee eset teceesesesese= eo teeeececececese- + 
0614 ‘ position value ! ss file_off ! prot.real ! 8 
0615 to----- SS ee oteees---5--5---- * 
2616 ! size MSB ! size LSB ! prot code ! 12 
061 i a See peoe-s---- ------- + 
0618 ‘ clustersize value } mode value ' 16 
0619 $eemwen mower ooown tooo wow o eee ooo n poco ooocooooce wo towwocwoeococooe ’ 
0620 ! dev.name 2 ! dev_name 1 ! dev_unit # ! unit_real ! 20 
0621 Hemme sew wre nnn toewe ese n wee wen tenn ne se weeesenetoceseseseee= oo-+ 
§ ‘ status bits (from NAMS$L_FNB) ; MM 
6 teow eerereeecesetecesese woccece- teoece- ee o-+ 
4 ! offset to / ! offset to< ! offset to: ! offset to :: ! 28 
625 $row wwe ewe nen tome een wesw esr en teen ee ese eseeses teeseeseseeeses= + 
6 $ : *XRB' flagword 1 : *XRB' flagword 2 : 3 
6 $eweooroworecoce teoeoceses eee coceteoccoeee Se ert 
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ROUTINE VALUE: 
Errors as follows: 
a) bas$_illfilnam 


b) bas$_illnum 
c) bas$_illswiusa 


e error 
egal switch 

else returns ss$_normal for success. 
SIDE EFFECTS: 
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if pars 
if HS protection or switch value 


Allocates a block of dynamic memory for output string if 
successful. This block must be returned by the caller 
using BPASFREE_BLOCK. 


BEGIN 
MAP 
fab_ptr : REF S$fqb_def, 
fsb_ptr : REF $fsb_def, 
buflptr : REF VECTOR C, BYTE); 
LOCAL 
ptr : REF ECTOR fe BYTE), 
string : REF VECTOR C, BYTE], 
gopy REF VECTOR C, BYTE), 
EXPAND : REF VECTOR C, BYTE) 
buffer_address : REF VECTOR (, BYTE), 
ctlr_val : WORD, 
unit_val : WORD, 
prot_val : WORD, 
ppn_val : WORD 


ORD, 
xlate_length : BYTE, 
device_size : BYTE, 

ile_size : BYTE 
ext_Size : SIGNED BYTE, 
log_dir_len : BYTE, 
dev_ptr, 
usr_dev_ptr, 

n_ptr, 
ppn_end_ptr, 
dot_ptr, 
ver_ptr, 
prot_ptr, 
swit_ptr 
end_parti, 
next_posn, 
next gner. 
log_dir_addr, 
parsed_address, 
parsed_length, 


address of FIRQB 
address of FSB 
address of string buffer 


address of MOVTUC dst buffer 
input string work buffer 

xlated gtring buffer for $parse 
expanded string buffer 
value of WS clued” 

va 

value of VMS unit # 

cereuleces prot spee value 
calculate n value 

length of xtoted string 

tengtn ot filensne. 

en 

length of ext . 

cogtcal etcectory string length 
° 3 

offset to ‘:' ; 
offset to user spec'd device 
Siteel 45 “tend 

offset to sTensne 

offset to ';' 

offset to ‘<prot' 

offset to ‘/ } 
offset to end of VMS-type string 
offset to next scan position 
offset to next char t9 examine 
Leg ical directory string address 
address of parsed string 

length of parsed string 
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'¢ 
logical directory string lengths (from above) 


LITERAL 
dollar shy | = hash string - dollar string, 
hash_str ng. = exclam_string = hash_string 
exclam_string_l = amper_string - exclam_string, 
amper_String_T = end_stfring - amper_string; 


16 
! Get parameters 
If length is zero, just return what we can to user. 


IF .byt_cnt GTRU 0 
THEN 


BEGIN 

byte_count = .byt_cnt; 

out Ver MOOreS® = .buf_ptr; 
ELSE 


BEGIN 
CHSFILL (0, fsb$k_le 
fsb_ptr sobse-{se 


OD - = FED ees 
fsb ptr Cfsb$l-fs 
Ok ; 


n 
= .buf_ptr; 
= 0; 


N ss$_normal; 


i Copy string to our buffer and use translate table to 
' convert lower=- to upper-case, lose any spaces, nulls 
: and non-printing characters, and convert () to (C). 


IF NOT (sts = bpa$get_block (.byte_count, string)) THEN RETURN SIGNAL (.sts); 


+ 


The following code performs the translation or pre-parsing 
of the user string, via the translation table anpreioes 
proteus’ - It uses the MOVTUC (MOVe Translated Until 

haracter) VAX machine instruction, which operates as follows:- 
Each encestng character is translated via the table. If 

the translation results in the character being converted to 

a code of 0, MOVTUC will complete with RO, R4 and R5 

containing values as described in the architecture handbook. 

The rogue character is skipped over (lost) and MOVTUC continued. 
This all continues until ‘bytes_to_move’ is zero (i.e. all translated). 
When all is done, the vector ‘sfrifig’ contains the final 
translated string. 


op_ptr = .string; ! O/P buffer address 
dst_length = nam$c_maxrss; ! O/P buffer Length 


WHILE sbyte_count GTRU 0 DO 
BEG! 


: 
| 
A 


[ 
. 9 
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\ 122868=1 382 94:88:23 BASRTL.SRCIBPAF SS.B32; “2 (3) 
\3 799 
; si LOCAL 
5 1 esc_flag, ! 1 if MOVTUC stopped by escape 
; 8 esc_char, ! pointer to escape character 
; 8 0 bytes_to_move, ! number of chars not Xlated 
3 04 bytes_left, ! bytes Left in 0/P area 
; peRe next_dst_addr; ! addr of next byte in 0/P area 
; O80? bpaS$movtuc (byte_count, .buffer_address, ZREF (0), table, dst_length, .op_ptr, esc_flag, 
; 0808 bytes_to_move, esc_char, bytes_left, next_dst_addr); 
; tts op_ptr = .next_dst_addr; ! where to put next char 
; ah IF .esc_fiag NEQU 0 
; pels THEN ! "0° seen, so step over it & continue... 
; 0813 4 BEGIN 
3 0814 4 buffer_address = .esc_char + 1; ! next I/P char address 
; 0815 4 byte count = .bytes_to_move - |; i # of bytes left to do 
3 pais ? dst_Tength = .bytes_left; ! # of bytes left in 0/P bufier 
; 0818 ELS 
> 384 +H byte_count = 0; ! ALL Xlated - force exit from ‘WHILE...° 
: 386 0821 END; 
; 387 08 ; 
3 tee 4 ? oe xlate_length = .op_ptr - .string; ! Length of Xlated string 
; 390 0835 ! Initialise fsb 
; #391 08 $ le 
; 4 082 CHSFILL (0, fsb$k_length, .fsb_ptr); 
; 39 0828 fsb_ptr Ctsb$a_tsa = string; 
: 394 9829 fsb_ptr Cfsb$lfsl] = .xlate_Llength; 
; 395 0830 '¢ 
; 396 0831 ! Find and mark any '::' 
; 397 te te 
3 300 +34 node_ptr = CHSFIND_SUB (.xlate_length, .string, 2, UPLIT BYTE('::")); 
; 400 0835 IF .node_ptr NEQU 0 
: 401 tig THEN 
; 40 083 BEGIN : 
; 40 0838 node_ptr = .node_ptr - .string; 
: 404 0839 fsb_ptr Cfsb$b_node_off] = .node_ptr; 
; 405 0840 usr_dev_ptr = .node_ptr + 2; 
3 rts 0841 END 
; 408 oBc8 BEGIN 
3; 409 0844 fsb_ptr Cfsb$b_node_ off] = 0; 
: 410 pee? usr_dev_ptr = 0; 
3; «6411 neg END; 
3 tig oe 
; 41 3 '¢ 
: 416 84 ! Find and mark any ‘':" (following ony *32°) 
; 415 850 ! NOTE: the colon MAY relate to a switch, rather 
; hy | 0851 i than be a device delimeter. We assume it is the 
; (41 £26 ! Later for now, and check its offset when we look 
; 418 85 : fer o *7*. 
3; 4619 854 !- 
: 420 0855 


; P 
-Sep- 1:33: AX-11 Bliss-32 V4.0-742 age 

‘peagess 1ESeort9Be O1:33:35  YaRcTY oLsess82 ye. gs74g 

; 421 ef oy mer Cfsb$b_node_off] NEQU 0 

: § a - fsb$b_node_off] - 2, 

: FIND CH (.xlate Length fsb_ptr [fsb$b_node_ 

; é a olen t a Cfsb$B_node_offi + 2, ac ' 

4 ¢ ‘ Ose} dev_ptr = CHSFIND_CH (.xlate_length, .string, %C':"); iar 
; ’ = - fsb$b_dev_o = 0; 
; 4 8 He IF .dev.ptr NEQU 0 THEN fsb_ptr Cfsb$b_dev_off] = .dev_ptr - .string ELSE fsb_ptr Cfsb$b_dev 

; 429 864 a 

: 4 1 OBe6 i €ind "<x" where x is numeric (i.e. protection) 

: a . ts e 

; 4 : aa prot_ptr = CHSFIND_CH (.xlate_length, .string, %C°<"); 

; é 3 a870 if en ee S ! we found a ‘<', see if numeric follows 

: 436 0871 eg HOO 

; ¢ i $878 prot_ptr = .prot_ptr - .string; - 

; $873 “9” “ tr + 1] LEQU %C°9° 

; ta th & if (.string C.prot_ptr + 1] GEQU %C'0 a -prot.p r 

ere: OB fsb_ptr Cfsb$b_prot_off] = .prot_ptr 

; 44 87 * 

3 44 378 a ELSE es 

: rr 0880 *<* found was (probably) a directory, so scan for another ‘< 

3 446 !- ane 
: ree O83 4 abe = CHSFIND_CH (.xlate_length - .prot_ptr - 1, .string + .prot_ptr + 1, %C : 
; és0 0885 4 IF .prot_ptr NEQU 0 5 Sal Meal 

: 451 08 : — 

; re 0888 5 prot_ptr = .prot_ptr - .string; : 

: $36 B85 *O" AND .string C.prot_ptr + 1] LEQU %C°9") 

: rey: 0890 6 (string C.prot_ptr + 1) sos ig, Peale 9 

; re $892 : fsb_ptr Cfsb$b_prot_off] = .prot_ptr 

: 458 0893 5 ee 

: 880 0895 3 bpa$free_block (.string, .byte_count); 

Oe RETURN SIGNAL (bas$_il(num); 

: 461 0896 6 U 

; 46 0897 5 END; 

: 46 0898 5 

; 664 899 4 END; 

; 4 3 

: 467 Bang : ans 

: 28 0904 ' 

; 470 0905 2 !+ mes : 

; rte $909 note: if ue we AL rey lovely we compare the 

: t7 90. i offsets of the colon & slash. If the colon offset is 

: 67% 309 i greater then it could not have been a device 

: 475 10 : Sel lacter so we zero its stored offset. 

; = + t e 

: re 0912 swit_ptr = CHSFIND_CH (.xlate_length, .string, %C°/"); 


—~— ee F 


ro rr 


te 
' Find position of next char after ‘::* or ‘:' 
e 


(whichever is the greater) 


PROIPIPOINPONIRD 2 tt tO Oo 


DONO UEWN—OO 


{tg tober Cfsb$b_dev_off] GTRU .fsb_ptr [fsb$b_node_cff] 


next_posn = .fsb_ptr ([fsb$b_dev_off] 
ELSE 


ft <-tab_ptr Cfsb$b_node_off] NEQU 0) ! 
1 gghttt poem = .fsb_ptr Cfsb$b_node_off] + 1 
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1-006 en 3e-138e 91:88:80  Eeasere’seeierarss 03074 > 
: 47 913 
; «47 914 IF .swit_ptr NEQU 0 
; 4 915 THEN 
; 481 ay BEGIN 
3 re 4 fsb_ptr Cfsb$Sb_swit_off] = .swit_ptr = .string; 
; $ee O319 IF .fsb_ptr Cfsb$b_dev_off] GTRU .fsb_ptr CfsbSb_swit_off] THEN fsb_ptr Cfsb$b_dev_off] = 0; 
; 486 8 1 END 
; 487 9 ; ELSE 
; 488 09 fsb_ptr Cfsb$b_swit_off] = 0; 
; 489 8 4 
: 490 925 ‘+ 
; 491 09 $ ! Get ptr to end of VMS-type filespec and check that 
; 49 09 ! the <prot> is before the /switch (if both present) 
Bo Be ge 
: 495 0930 If (.fsb_ptr Cfsb$b_prot_off] NEQU 0 AND “toh _pte Cfsb$b_swit_off] NEQU 0) 
; $38 $33) THEN '“both present 
; 498 $933 IF .fsb_ptr Cfsb$b_prot_off] LSSU .fsb_ptr Cfsb$b_swit_off] 
; 499 0934 THEN ' "*<* before ‘7° OK 
3 200 0935 end_part! = .fsb_ptr Cfsb$b_prot_off] 
; 208 BEG! 
; bpa$free_block (.string, .byte_count); 
; 504 RETURN SIGNAL (bas$_il (swiusa)? ! "/* before ‘<* ERROR 
; 505 END 
; 506 
3 fOr § ELSE 
: 508 
; 509 If .fsb_ptr Cfsb$b_prot_off] NEQU 0 
; 510 THEN ' only '<* present OK 
: 1 end_part! = .fsb_ptr Cfsb$b_prot_off] 
; § ELSE 
3 4 If .fsb_ptr Cfsb$b_swit_off] NEQU 0 
3 5 THEN ! only ‘/* present OK 
3 g ns end_part! = .fsb_ptr Cfsb$b_swit_off] 
: 8 end_part! = .xlate_length; ! neither =- end = Length 
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FaN= 


next_posn = 0; 
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5 970 
48 next char = .next_posn; 

: me IF .mext_char NEQU 0 THEN next_char = .next_char + 1; 

ay 396 i ch k integrity of C...] €. if d 
eck integr of {...] or .> resent. an 

¢g 97 i make next “ther. the char after the oe 
4 44 ie 
44 97 
45 980 SELECTONEU .string C.next_char] OF 
rf 981 SET 
4 9 § 
48 9 C2c’c') : 
49 984 BEGIN 
29 Sone next_posn = CHSFIND_CH (.xlate_length = .next_char, .string + .next_char, %C°]"); 
5 098 IF_ .next_posn NEQU 0 
3 988 THEN 
54 989 BEGIN 
55 0990 next_posn = .next_posn = .string; 
56 0991 next_char = .next_posn + 1; 
57 3434 
58 099 
59 0994 
60 


: : 
2 3 
 F 
a. 
; 3 
$ 2 
49 
Be 
3 3 
3; 2 
s > 
3 3 
; 2 
2 
; 2 
3; 3 
. 2 
3; 3 
a 
2 
; 2 
:. 2 
2 
. 3 
; 2 
3 3 
; 
2 ; 
: : 
; 


betta block ( SE iC Pe inane count); 
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0995 
61 0396 RETURN SIGNAL (bas$_il nam); 
$e 099 
ge 
64 9 END; 
65 1000 
66 1001 Czc’<') : 
67 Igoe BEGIN 
>| OE next _posn = CHSFIND_CH (.xlate_length = .next_char, .string + .mext_char, %C'>'); 
70 1005 IF _.nmext_posn EQLU 0 
71 1906 THEN 
LC; 100 BEGIN 
7 1008 . ou teee block ( seein? -byte_count); 
7% 1009 N SIGNAL (bas$_illfiinam)? 
75 1010 
76 1011 ELSE 
77 a 
78 101 IF (.string C.mext_char + 1] GEQU ZC'A* AND .string C.next_char + 1] LEQU %C‘Z") 
79 1014 THEN 
80 1015 BEGIN ; 
81 3 3 next_posn = .next_posn = .string; 
Hf 101 next “char = inext “posn + 1; 
37 1 18 3 
85 } 6 END 
iy] 1021 

10 § Cormgnul se) : 
3 10 3 ! nothing to do 

9 1024 TES; 

90 1025 
91 1026 '¢ 


(a Fy 
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: Set NFREP bit if a ‘%* in source string 


fsb_ptr Cfsb$b_file off] = .next_char; 
next_posn = .néxt_char; ‘ 


(CHSFIND_CH (.end_partl = .next_posn, .string + .next_posn, %C'%') NEQU 0) 
fab_ptr CfqbSb_nfrep] = fab$Sk_nfrep; 


38 
94 
95 


Le 
' Check to see if both '?° and ‘'%* are present. If so error, else 
: convert any '?' to ‘%' 


SSSSSSSSS3S3 


IF (CHSFIND_CH (.end_part! = .next_posn, .string + .next_posn, %C'?") NEQU 0) 


one BEGIN 
ca (.end_part! = .next_posn, .string + .next_posn, %C°%') NEQU 0) 
BEG! 
D 
ELSE 
BEGIN 


UNTIL CHSFAIL (pt 
CHSWCHAR (2C' 


= CHSFIND_CH (.end_part! - .next_posn, .string + .next_posn, %C°?")) DO 


r 
B°, eOtrds 


MIPMIPINPIPOPINIRS SS a 
NOVEWN —OVOONOUSWN oO 


WN $9 OD NOUVE WN —O OOBNOAUES WN OO CONOU SW "O0O~ 


SERESSSSCSSSSSSPESEP ES ER PCCCCOOCCOOROR 


'¢ 
' See if the next char is a logical directory specifier. 


Se 


ESSE 


WINER INI I ORORUPUPUNUPUNUNITUNIIIUIW ES BBE BEE BUR EB PPI onononononononouMrunononuny 


POAAAAAAASAAAAAAAAAAAAAAAAAOAO 
ee ee ee ee a a a a ee a ee ee a ee ee ee a a ee a ee 


31 ! If so, load the required translation string address/length 
3 st :_and point next_posn to the following char 
34 9 
5 076 SELECTONEU .string C.next_char] OF 
71 SET 
O78 
07 Czc°$') : 
9 074 BEGIN 
640 14 log_dir_addr = dollar_string; 
641 6 log _dir_len = dollar_String_|; 
ose 07 next_posSn = .next_posn + 1; 
64 o78 ND; 
644 8 
645 0 Czc'#') : 
e668 081 BEGIN 
64 0 § log_dir_addr = hash_string; 
648 08 log-dir-len = hash_String_l; 


" 
bpa$free_block c-serine »byte_count); 
RETURN SIGNAL (bas$_illfiinam); 
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; 649 1 next_posn = .next_posn + 1; 
i 650 10 5 END; - 
> 651. 1 8 
; 6 ¢ 18 Cac*r*s 3 
: 88 1089 (og.dir_add l i 
; og_dir_addr = exclam_string; 
; gee 1090 tog dir_len = exclan String-[; 
3 628 1091 next_posn = .next_posn + 1; 
3; $ 1936 ND; 
; 658 4 
; 659 1094 C2c's') : 
; 660 199? BEGIN 
; 661 1 a8 log_dir_addr = amper_string; 
3 666 109 log_dir_len = amper _String_| 
: 66 1098 next_poSn = .next_posn + 1; 
; 664 1099 ND; 
; 665 1100 
; 666 1101 Czc*a') : 
; 667 1136 BEGIN 
; 668 110 log_dir_addr = .bpa$al_usrppn fi): 
; 669 1104 log_dir_len = -bpadal usrppn (0); 
3 279 1199 next_posn = .next_posn + 1; 
3 678 1109 IF .log_dir_addr EQLU 0 
; 67 1108 THEN 
; 674 1109 4 BEGIN 
; 675 1110 4 log_dir_addr = end_string; 
; 676 1111 4 Log _dir ten = 0; 
; 677 ie ; END; 
; 678 111 
; 679 1114 END; 
; 680 1115 
; 681 1116 COTHERWISE) : 
; +68 1117 log_dir_len = 0; 
; 68 1118 $ 
3 684 1119 
; 685 1120 '¢ 
; rt] + 2 If the above 5 chars appear further on in the string, then error 
3 688 11 
; 689 1124 IF (CHSFIND_CH (.end_partl = .next_posn, .string + .next_posn, %C‘°$*) NEQU 0) 
; 690 1125 OR (CHSFIND_CH (Tend_parti = .Mext_posn, .string + .next_posn, %C'#') NEQU 
; 691 11 $ OR (CHSFIND_CH (.end_part! - .next_posn, .string + .next_posn, %C*!") NEQU 0) 
; 69 11 OR (CHSFIND_CH (.end_part! - .next_posn, .string + .next_posn, 2C'&') NEQU 
; 69 1128 OR (CHSFIND_CH (.end_part! - .next_posn, .string + .next_posn, %C'@') NEQU 0) 
: 694 1129 THEN 
; 695 1130 BEGIN 
3 698 1131 sper tree block (serine -byte_count); 
; 69 11 : RETURN SIGNAL (bas$_illfilnam): 
; 698 11 END; 
3 699 11 
; 700 1135 '¢ 
: 701 11 ! If we found a logical directory specifier, then merge the 
; FO 11 ! translation with the rest of the string 
: 70 11 : ! Get the merge buffer from free ccre 
: 704 11 . If the lo icgl directory. Length 1s zero, just copy 
3; 705 1140 ! *string’ to ‘copy’ and leave ‘lengths’ as they are. 


_—__ —_—__——_-- --——_—-—- 


1b-sep-19 4 91:33:33 iret Bliss-32 V4.0- Page 
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; 706 1141 !- 

; 70 1326 

ee. 114 IF NOT (sts = bpaSget_block (nam$c_maxrss, copy)) 

3; vf 1144 THEN 

; 710 1145 BEGIN 

; (711 19 spon tcee block (.string, .byte_count); 

; ay 114 RETURN SIGNAL (.sts); 

3; Fi 1148 END; 

; 714 1149 

; 715 1150 IF .log_dir_len NEQU 0 

; 716 1151 THEN 

3 rir 1126 N 

; 718 11 CHSCOPY (.next_posn - 1, .string, ' Ist bit upto specifier 
; 719 1154 -log.dir len, .log_dir_adar, ! translation string 

: 720 1155 end_parti - .next_posnh, .string + .next_posn, ! Last bit after specifier 
: 721 1136 6, ' fiTl char 

, F ¢ 115 nam$c _maxrss, scepy): ! destination 

im. 1158 xlate_length = .xlate_ length + jog. dir_ten - 1; ; oajwet total length 
3; 726 1159 end_part! = .end_partT + .log_dir_lén -"1; ! adjust ‘VMS-part’ Length 
3 fee 1160 END 

; 726 1161 ELSE 

3 est HB CHSMOVE (.end_part!, .string, .copy); ! just copy the string 
: 44 1164 '¢ 

; g ° 1169 : Setup and call bpaSfile_scan 

3 732 116? fsb_ptr Cfsb$a_fsa] = .copy:; 

3; 7 1168 fsb_ptr Cfsb$l_fslJ = .end_part!; 

; 734 1169 

; 735 1170 IF NOT (sts = bpa$file_scan (.fsb_ptr)) 

, 7 1171 THEN 

s 37 1196 BEGIN 

3; 7 117 bpa$free_block (.string, .byte_count); 

3 ia 1174 pperecee block (copy. nam$c_maxrss); 

: 740 1175 RETURN SIGNAL (.sts); 

: 741 1176 ND; 

3; «74 1177 

: «74 1178 '¢ 

3 744 1179 ' Decode the <prot> if present 

: 745 1139 t= 

; 746 1181 

3; 747 1186 If .fsb_ptr Cfsb$b_prot_off] NEQU 0 

; 748 118 THEN 

3: 749 1338 BEGIN 

; 750 1185 prot_ptr = .fsb_ptr CfsbSb_prot_off] + 1; 

: 931 1186 prot_val = 0; 

; 738 1188 ; WHILE fiatring C.prot_ptr] GEQU %C°O" AND .string {.prot_ptr] LEQU %C'9") DO 
; 755 1190 4 prot_val = (.prot_val*10) + (.string C.prot_ptr] - %C'0"); 
3 es 1191 4 prot ptr = .prot_ptr + 1; 

:; Bb 1336 ND; 

; 758 119 

3; 759 1194 IF _.string C.prot_ptr] NEQU %C'>' 

: 760 1195 THEN 

: 761 1138 4 BEGIN 

3 1197 4 bpa$free_block (.string, .byte_count); 
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: 763 1198 4 bpa$free_block (.c nam$c_maxrss); 
: 784 1138 RETURN SIGNAL (bas$-4(inum):” 
: 7 1201 . 
3 res 1 03 IF .prot val LEQU 127 
; 768 120 THEN 
3 79? 1206 4 BEGIN 
3; 770 1205 4 fsb_ptr Cfsb$b_prot] = pgrotayal: 
3 ri 1 Be 4 fsb_ptr [fsb$b_prot_real] = <1; 
3 ure 1207 4 END 
hm dep as, 
: 775 1210 4 bpa$free_block (.string, .byte count); 
; 776 1211 4 pperecee block 52 COpy nam$c_maxrss); 
; vr iF 4 RETURN SIGNAL (bas$_illnum); 
: 779 1214 ; 
: ree : i END; 
; 78 1317 ‘+ 
3 a? 1318 } Sort out switches (if any) 
: 785 1220 2° | 
: ree 1388 iF 2, 'et_ptr Cfsb$Sb_swit_off] NEQU 0 
: 788 1 
3; 789 1354 IF (sts = find_switch (.fsb ptr, .string + .fsb th Cfsb$b_swit_off], 
> 790 1225 .xlatetlength - .fsB_ptr Cfsb$b_swit_offJ)) NEQU 1 
; 791 15$6 THEN 
: ja 1398 RETURN SIGNAL (.sts); 
: 794 1 29 '¢ 
3; 795 1230 ! Load up ‘XRB* flagwords in FSB 
: a \¢3) } (bpa$file_scan has already loaded some bits) 
: 798 1533 
3 444 te IF ,tsbptr Cfsb$b_prot_off] NEQU 0 
; 01 1336 evsesenPt Cfsb$v_prot_seen] = 1 
: 80 1338 
3 Hi : 4 IF .bpa$gb_usr_real NEQU 0 THEN fsb_ptr Cfsb$v_def_prot] = 1; 
; 807 1341 IF .fsb_ptr Cfsb$b_dev_off] NEQU 0 THEN fsb_ptr Cfsb$v_coln_seen] = 1; 
3 808 1 “8 dot_ptr = CHSFIND_CH (.end pert} - .fsb_ptr Cfsb$b_file_off], : 
: 809 1244 -string + .fsb_ptr Cfsb$b_file_offJ7 ' 
: 10 1245 BC*.°)s 
3 «Bt 1 $8 
3 aig ' r VM ,dot_ptr NEQU 0 
3 814 1 rt BEGIN ; 
: 815 1250 dot_ptr = .dot_ptr - strings 
3 1 1251 fsb_ptr Cfsb$v_dot_seen] = 1; 
: 1 1 26 END 
: 18 125 
; 819 1254 dot_ptr = .end_part!; 
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If (CHSFIND_CH (.end_part! - .fsb_ptr Cfsb$b_file_off], .string + .fsb_ptr Cfsb$b_file_offJ, %c'%")) 
fsb_ptr Cfsb$v_name_ques] = 1; 
IF (CHSFIND_CH (.end_partl - .dot_ptr, .string + .dot_ptr, %C'%")) THEN fsb_ptr [Cfsb$v_ext_ques] = 1; 
+ 
} Copy duplicate bits from flagword 2 to flagword 1 
IF .fsb_ptr Cfsb$v_name_seen] THEN fsb_ptr Cfsb$v_name_1] = 1; 
IF .fsb_ptr Cfsb$v_dot_seen] THEN fsb_ptr Cfsb$v_dot_1] = 1 
If .fsb_ptr Cfsb$v_ppn_seen] THEN fsb_ptr Cfsb$v_ppn_1] = 1; 
IF .fsb_ptr Cfsb$v_prot_seen] THEN fsb_ptr Cfsb$v_prot_1] = 1; 
IF .fsb_ptr Cfsb$v_coln_seen] THEN fsb_ptr Cfsb$v_coln_1] = 1; 
IF .fsb_ptr Cfsb$v_log_name] THEN fsb_ptr Cfsb$v_log_1] = 1; 
if 'etvtr Cfsb$v_status] ! If FSB indicates NFREP... 
BEGIN 
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fab_ptr pfabsb_ntrep) = tghth ntrepi ! ,..set bit in FIROQB 
fsb_ptr fsb$v_status] = 0; ! and zero temp store 


-fsb_ptr Cfsb$v_name_que 
OR .fsb_ptr Cfsb$v_ext_wild] : 
OR .fsb_ptr Cfsb$v_ext_ques] : 
OR .fsb_ptr Cfsb$v_proj_wild] ' 
OR .fsb_ptr isbevprog.wi lg: : 
a OR .fsb_ptr Cfsb$v_ 


Load up the FIRQB 


og_notr]); 
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IF .fsb_ptr Cfsb$v_name_wild] 
THEN 

BEGIN 
fab_ptr fabsu_fanant} 
fab_ptr fab$w_ fqnam2 


oooo]o 


AE Loe a 
%0°134745'; 


If .fsb_ptr Cfsb$v_ext_wild] THEN faqb_ptr Cfqb$Sw_fqext] = %0°134745'; 


'¢ 
! If numeric ppn ang group or user fields are wild 
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| fsb_ptr Cfsb$v_status] = (. fsb_ptr Cfsb$v_name_wild] : 
s ! 
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; 877 131 
; ts ! 1§ IF .fsb_ptr Cfsb$v_proj_wild] THEN fqb_ptr Cfqb$b_proj] = -1; 
; Bey ! 1g IF .fsb_ptr Cfsb$v_prog_wild] THEN faqb_ptr Cfqb$b_prog] = -1; 
; 88 131 rs 
: Bas \ \8 Load size, mode, clustersize & position. 
: Bas 1320 fab_ptr Cfqb$Sb_blkhi] = .fsb_ptr fsbeb pt kat): 
; 886 1321 fab_ptr Cfqb$w_bl = .fsb_ptr_ [fsb$w_biklod; 
; 887 1 ¢ fab_ptr Lfaqb$w_mode] =_.fsb_ptr spe mode; 
; 888 1 fab_ptr Cfab$w_cluster] = .¥sb_ptr {sbSy_clust); 
; 389 : fab_ptr Cfqb$w-position] = .fsB_ptr Cfsb$w_position); 
; +4 1 § Prot_code is loaded as follows:- 
3 He 1328 ! a) the prot code specified in the filespec, or 
; 894 1362 ! b) the user defined default prot code, or 
; 895 1330 ! ¢) The basic plus default prot code (bpa$k_def_prot) 
; 896 1331 te 
; 897 1336 
; 898 133 If .fsb_ptr Cfsb$v_prot_seen] 
; 899 1334 § 
; 900 1335 fab_ptr Cfqb$b_prot_code] = .fsb_ptr Cfsb$b_prot] 
; 901 1336 ELSE 
; 90 1330 
; 1338 If .fsb_ptr Cfsb$v_def_prot] 
3; 904 1339 THEN 
: 332 it fab_ptr Cfqb$b_prot_code] = .bpa$gb_usr_prot 
3 st 1366 fab_ptr Cfqb$b_prot_code] = bpa$k_def_prot; 
3; 909 1344 fab_ptr Cfqb$b_prot_real] = -1; 
; 910 1345 '¢ 
; «911 1346 ! From now on we are interested in the contents of the 
s Pe 1347 ! parsed string (filename, devicename, ppn, etc), so 
s 915 1348 i we determine the offsets to the field delimeters 
; 914 1349 Ess, te Cor ¢ or >, .. and ;). This allows us to 
3 915 1350 2 ! find the specific parts of the string very easily. 
; 916 1351 ! We also store the offset to the filename and the 
3; 917 1326 ! end of the ext. 
: 918 135 te 
: 919 1354 parsed_address = .fsb_ptr Cfsb$a_fsa); 
: 92 1323 parsed_length = .fsb ‘tr Cfsb$i_fslj; 
3 : 1 1328 , hext_posn = 0; 
; ? § 1338 node_ptr = CHSFIND_SUB (.parsed_length, .parsed_address, 2, UPLIT BYTE(*::')); 
3 925 1360 IF .node_ptr NEQU 0 
: 926 1361 THEN 
3: 927 1306 BEGIN 
; 928 136 node_ptr = .node_ptr - oporced_odéress: 
; 929 1308 next_posn = .node_ptr + 2; 
: 9 1365 END; 
3; 931 1306 
3 336 138 : aS ae 
3 9 1368 dev_ptr = CHSFIND_CH (.parsed_length - .next_posn, .parsed_address * .next_posn, 2C‘:"); 
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e006 1 ~Sep-19 4 94333 0 BASRTL SRE SBPAF SS 63204 ° (3) 
: 98s 1390 IF_.dev ptr NEQU 0 
H -dev_ptr 
: 936 1371 THEN 
3 937 1 ie BEGIN 
3 338 ! 6, ore eS sdev_ptr = ;Parsed_address; 

: next_posn = .dév_ptr ; 

: 940 1375 ND; 

BUS, 

3 a ; 4 ppn_ptr = CHSFIND_CH (.parsed_length = .next_posn, .parsed_address + .next_posn, %C'C'); 

3 945 1380 IF_.ppn_ptr NEQU 0 

946 1381 THEN | 

. oe sy pont pepe 

3 n_ptr = .ppn_ptr - .parsed_address; 

> 949 1384 pent posn oP eoEn. pte He by 

; 950 1382 

> «951 1386 ELSE 

H 826 1387 BEGIN 

3 337 1358 ppn_ptr = CHSFIND_CH (.parsed_length - .next_posn, .parsed_address + .next_posn, %C'<"); 

; 4955 1390 ; IF .ppn_ptr NEQU 0 

3 956 | 1391 THEN 

3; 957 1336 4 BEGIN 

; 958 1393 4 ppn_ptr = .ppn_ptr - .parsed_address; 

: 959 1394 4 next_posn = .ppn_ptr + 1; 

; 960 1395 3 END; 
|; 961 1396 | 
ts +4] 1397 END; 

; 963. 1398 

> 964 1399 ! 

; oe2 1208 ppn_end_ptr = CHSFIND_CH (.parsed_length - .next_posn, .parsed_address + .next_posn, %('J]"); 

3 367 1406 IF .ppn_end_ptr NEQU 0 

; 968 140 THEN 

: 39 1208 3 og Pe d d_add | 

3 n_end_ptr = .ppn_end_ptr - .parsed_address: 

3 (971 1406 ; Rost pote = pon ofa ptr + 1; . 

; 972 be 14 END 

: 973 1408 EL 

: 974 1409 BEGIN 

3 6 109 ppn_end_ptr = CHSFIND_CH (.parsed_length - .next_posn, .parsed_address + .next_posn, %C*>"); 

; 977 \elg ; IF .ppn_end_ptr NEQU 0 

3; 978 141 THEN 

: 979 1414 4 BEGIN 

; 980 1415 4 ppn_end_ptr = .ppn_end_ptr - .parsed_address; 

3; «981 1416 4 next_posn = .ppn_end_ptr + 1; 

; 98 1417 ND; 

; 98 1418 

3: «984 1419 END; 

; 985 1420 

3; 986 1421 : 

; +4 ¢ § dot_ptr = CHSFIND_CH (.parsed_length - .next_posn, .parsed_address + .next_posn, %C*."); 

: 989 1424 If .dot_ptr NEQU 0 

; 990 1425 THEN 


—_————__ 
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BEGIN 


dot ptr = .dot_ptr - .parsed_address; 
next _posn = ,dot_ptr + 1; 


ver_ptr = CHSFIND_CH (.parsed_length - .next_posn, .parsed_address + .next_posn, %C';'); 
IF .ver_ptr NEQU 0 
THEN 

BEGIN 


a3 


33 


33 


3 


er_ptr - .parsed_address; 
pore ee = .ver_ptr; 


parsed_end = .parsed_length; 
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fsb_ptr Cfsb$b_file_off] = (MAXU (.node_ptr, .dev_ptr, .ppn_ptr. .ppn_end_ptr)) + 1; 


Convert the parsed filename & ext to rad-50 & store away 
(if already loaded with ‘wild’ rad50, don't overwrite) 


On entry here, dot_ptr is either an offset to the ‘.' 
(if present), else the same value as parsed_end (if 
no ‘.ext’ is present). We can therefore calculate 
the lengths of the filename and ext. 


file size = .dot_ptr - .fsb_otr Cfsb$b_file_off); 


ext_size = .parsed_end - .dcot_ptr - 1; 
i If .dot_ptr = .parsed_end, ext_size is now -1, so correct it 


IF .ext_size EQL -1 THEN ext_size = 0; 


'¢ 

! Check for .file size being LEQ 6. If FALSE we do not 

! Load it_to the firgb as rad-50. Same if .ext_size 

1 is GTR 3 (which will be thrown out by RMS Later anyway!) 


r_{-file_size LEQU 6 AND .fab_ptr Cfaqb$w_fqnam1) NEQ %0°134745") 

If .file_size LEQU 3 

THEN 
BEGIN : % 
fab_ptr f fabsu. fanan} } = rad_50 (.parsed_address + .fsb_ptr ffsbsb_ tite offi. efile size); 
{qb_ptr fqb$Sw_fqnam2) = rad_50 (.parsed_address + .fsb_ptr Cfsb$b_file_off] + 3, OY; 

SE 

BEGIN 
fab_ptr fabgu_ fanaa) = rad_50 (.parsed_address + .fsb_ptr pisbsb.tite_oft). 3); 
fab_ptr [fqb$Sw_fqnam2) = rad_50 (.parsed_address + .fsb_ptr [fsb$b_file off] + 3, ! 


-file_size = 3); 
END 


— 
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> 1048 1483 

mice tes 8s 

; 1981 1¢ § IF .file size GTRU 6 THEN fqb_ptr CfqbSb_nfrep] = fqb$k_nfrep; ! Set NFREP 
; 1988 158 {-ent_sise LEQU 3 AND .fab_ptr Cfab$Sw_fqext] NEQ %0°134745") 

3 1922 to fab_ptr CfqbSw_faqext] = rad_50 (.parsed_address + .dot_ptr + 1, .ext_size); 
; 1089 1436 '¢ 

; 1058 149 ! If a numeric ppn is present, load the decimal values into 

; 1059 1494 ! the FIRQB 

3; 1060 1495 te 

3 He: 1eo8 

3; 3 ¢ 149 If .fsb_ptr Cfsb$v_ppn_seen] 

; 106 1498 THEN 

3; 1064 1499 BEGIN 

; 1065 1500 

; 1066 1501 IF .fsb_ptr Cfsb$v_proj_wild] EQLU 0 

: 1067 1286 THEN 

: 1068 1503 4 BEGIN 

; 1069 1504 4 EXPAND = .parsed_address; 

; 1070 1505 4 next_posn = 1; 

3 1O7) 1208 ; ppn_val = 0; 

3 1078 138 ae (.EXPAND C.ppn_ptr + .next_posn] GEQU %C'O" AND .EXPAND C.ppn_ptr + .next_posn] LEQU %C°9" 
; 1075 1510 5 BEGIN 

3; 1076 W311 3& ppn_val = (.ppn_val*10) * ((.EXPAND C.ppn_ptr + .next_posn]) - %C'0'); 
3; 1077 1318 5 next_posn = .next_posn + 1; 

; 1078 1513 4 ND; 

1080 1318 fab_ptr Cfab$b_proj] l 

; -ptr Cfqb$b_proj] = .ppn_val; 

: 1081 1516 4 END 2 

; 1 1517 

: 108 1518 next_posn = 2; 

3 10846 1519 : 

3 1085 1520 If .fsb_ptr Cfsb$v_prog_wild] EQLU 0 

: 1086 135! THEN 

: 1087 15 ; 4 BEGIN 

3; 1088 1525 4 EXPAND = .parsed_address; 

3; 1089 136 4 next_posn = .next_posn + 1; 

3 \ooe 13 5 ? ppn_val = 0; 

; Has 1337 ? WHILE (.EXPAND C.ppn_ptr * .next_posn] GEQU 2C'O* AND .EXPAND C.ppn_ptr + .next_posn] LEQU %C°9" 
3; 1094 1363 BEGIN 

3 1095 1530 ppen_val = (.ppn_val*10) + ((. EXPAND C.ppn_ptr + .next_posn]) - %C'0'); 
3 1096 133) next_posn = .next_posn ¢ 1; 

; 109 15 § & END; 

: 1099 1834 fab_ptr Cfab$b_prog) l 

3 ptr Cfqb$b_prog) = .ppn_val; 

; 1380 1535 END? . 

3; 1101 15 

3 1198 153 END; 

3; 110 1338 

3 1104 1539 '¢ 
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! Convert the VMS device to a RSTS-type d 
: 3 Sev 15 § 


; 1105 1540 v 

3 1} : re ; and store the 2 device chars & uni e FIRQB 

3 1198 ; ‘§ EXPAND = .parsed_address; 

; 1319 ; $? IF .mode_ptr NEQU 0 THEN next_posn = .mode_ptr + 2 ELSE next_posn = 0; 

; 1116 : of “ device_size = .dev_ptr - .next_posn; 

3 1116 1 rk : Ist char of device name is at offset .next_posn 

3; 1115 1550 : End (:) is at offset .dev_ptr 

; 1138 : 5 ; -Gevice.size is length of device name (less the colon) 

; 1118 1 § ! If device is a proccess permenant bogical name, it 

3 1119 1554 ! will have a ‘$' in it (e.g. SYSSINPUT:) In this case 

3; 1120 1555 ! we put the original 2-char devicename in the FIRQB 

3; 1121 1326 ! (e.g. Tl or KB) with ‘unit_real’ zeroed, else the VMS 

311 ; 155 ! physical name is loaded info the FIRQB. 

3 71 1558 ! Note that ‘usr_dev_ptr’ is the offset to the user 

3 1185 1228 specified devicename. 

3 1158 136) mext_char = CHSFIND_CH (.device_size, .EXPAND + .next_posn, %C'$"); 

: 1128 1368 IF .mext char NEQU 0 ' 
3 ie 1564 THEN ! retrieve user's 2-char devicename 
; 1130 1565 BEGIN 

3 1131 1566 

3 1136 1567 BIND 

3; 113 1568 user_dev = string C.usr_dev_ptr] : WORD; 

3: 1134 1569 

3 M132 1379 fab_ptr Cfqb$Sw_devnam] = .user_dev; 

; Ht 4 1376 IF (.user_dev EQLU ZASCII'KB’ OR .user_dev EQLU ZASCII'TI") THEN fqb_ptr Cfqb$Sb_nfrep] = 0; 
3; 1139 1574 ! Cancel NFREP bit 

3: 1140 1575 END 

3: 1141 1576 ELSE ! assume physical name 

: bry 1577 BEGIN 

3114 1578 fsb_ptr Cfsb$b_dev_namel] = .EXPAND C.next_posn]; 

: Pre 132) fsb_ptr Cfsb$Sb_dev_name2] = .EXPAND C.next_posn + 1); 

3 1146 1581 4 IF (.EXPAND C.next_posn] EQLU ZC'T" AND .EXPAND C.next_posn + 1] EQLU %C‘U") 
3 1147 1388 3 THEN 

3; 1148 15 4 BEGIN 

3 1149 15 4 fsb_ptr Cfsb$b_dev_name2) = %C'T'; 

: 1150 1585 4 unit_val = 128; 

3 1151 1386 4 

: 1126 158 ase 

3 115 1588 unit_val = 0; 

> 1154 1589 , 

3 itee HF 4 next_posn = .next_posn + 2; ! point to controller letter 
3 1189 1336 If .EXPAND C.next_posn] NEQU %C':* 

: 1158 132 THEN 

3; 1159 1594 

3; 1160 1595 4 

3; 1161 1596 3 


tee C.next_posn] GEQU ZC'A’ AND .EXPAND C.next_posn] LEQU %C'2") 


row 
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BEGIN 
ctlrival = (.EXPAND C.next_posn] - %C'A') #16; 


ao 
wr 


next _posn = .next_posn + 1; 
unit.val = .unit val + Fe thane C.next_posn] - %C'0"); 
next_posn = .next_posn + 1; 
_—— C.next_posn] NEQU %C':' 

unit.val = (.unmit_valel10) + (.EXPAND C.next_posn] - %C'0O'); 
fsb _ptr Cfsb$b_dev_unit] = .ctlr_val + .unit_val; 


ELSE 
BEGIN 


mee Ee C.next_posn] GEQU %C'O* AND .EXPAND C.next_posn] LEQU %C°9") DO 


unit val = (.unit_val*10) + (.EXPAND C.next_posn] - %C'0"); 
post. .peen = .next_posn + 1; 


oa 

oF 
Comm 

COOCOCOCOONOON 

MEW —O0O~ 


fsb_ptr Cfsb$b_dev_unit]) = .unit_val; 
END 


LSE 
fsb_ptr Cfsb$b_dev_unit] = 0; 
= fsb_ptr Cfsb$b_unit_real] = -1; 
Load results into FIROB 
‘ (fab_ptr E tab$u_devnam})<0, 8> = .fsb_ptr Cfsb$b_dev_name1]; 
fab$w_devnam])<8, 8> = fsb$b_dev_name2); 


-fsb_ptr 
fab_ptr ffabsb_deyunits = :tsb-p r Cftebsb dev_unitJ; 
fab-ptr fab$b_unit_real] = .fSb_ptr CfsbSb_unit_realJ; 
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bpa$free_block (.string, .byte_count): 
spon eres Bleck (.copy, nam$c_maxrss); 
RETURN ss$_normal; ! Return success to user 


END; ! End of routine BPASFSS 
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-TITLE BPASFSS 
IDENT \1-006\ 


-PSECT _BPASDATA,NOEXE, PIC,2 
00000 BPASGB_USR_PROT: 
BCks 


00001 -BLKB 
00004 BPASGB_USR REAL: 
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0008 BPASAL_USRPPN: : 
-BLKB 


SSS 
Be Ge Se Se Se Se Oe Ge Ge Se FH Ss Oe Oe Oe Oe Ss Oe Ss Se Se Oe Oe Se Se Ge FH Se Se Oe Ss OH os SH Se Se Se Se SH Oe Sees 


= 


i 


PIC,2 


eet te Sh ete 
BASRTL.SRCJBPAFSS.B32; 
SHR, 


-PSECT _BPASCODE ,NOWRT, 


1he$ep-1986 01:33: 
babes rik Pat Poe 


spe he se 


PSPSPS HS FS FS FS FS FS FS FSFE FS FSS FS FSCS FS FSFE FS SCE SSE FSFE SE He He 


ss © & &© & & & & 


esses eee eas 
—-SOOOCODDSD 
ow @WO Or. 


esse eee eas 
SOooooornrr 
MTN OF. DOr. 0cO 


000.400 000000.0 0.0 


MTNOr. DOr. DO 


ses © 8s &© & & & & & 
| i ek Al a ab * 
MTN OF. DO Or. COTY 
_— 


oooooonores + 
siiieciettaattetaa * 


ses @©@ 8 8 8&8 8 8 8 


MANA) 


MFT OF. OOK 0O a 


*s es 88 8 8 8 oy 


OMT WNOPR-. DPP-D— OM TN OR-DOKR- DEK KH KK KK 


—-Ouwovrm 
rwoor 


Oo- Ov wove 
ONM MN TAT 


Ne Ouwaoaw 
WINNT INT 


$ 
$ 


ay 


5C 5B SA 59 5 


48 GA 49 & 
SA 59 58 5 


NNCUNNINOOO 


79, 
, 89, 9 


77 
. 87, 88 


86. 
0 


85 
126 


28° 
EM:\ 


ess 88s 8 8 8 8 Oe 


MTNOF-DOKR-C 


3 


BPAS 
O\ 


4C 4 


BPASFREE_ BLOCK 
S$_ILLNUM 
AS$_ILLFILNAM 
» Save R2,R3,R4,R5,R6,R7,RB.R9,R10.- ; 0571 
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-EXTRN BPASGET 


-EXTRN BPASSMO 
BASS 


STRING= 
STRING 
Xn. 
TRING= 


TABLE= 
DOLLAR 
HASH 
EXCL 
AMPER 
END_S 
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He BPASGET BLOCK 
RO, ST 
sts 3 
2$ 
STRING, R8 
Rg OP’ PT 
#255, BST_LENGTH 
YTE_COUNT 


NEXT DST ADDR 
BYTES LEFT 


8(SP) 
BUF FER_ADDRESS 
BYTE_COUNT 
#11, BPASSMOVTUC 
NEXT_DST_ADDR, OP_PTR 
SC_FLAG 


#1, ESC_CHAR, BUFFER ADDRESS 
#1, BYTES TO MOVE, BYTE_COUNT 
BYTES_LEFT, BST_LENGTH 


BYTE_COUNT 
R8, OP_PTR, XLATE_LENGTH 


FSB_PTR, R 
#0,~(SP5, #0, #36, (R7) 
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XLATE_LENGTH, (R7) 
KLATECLENGTH RO 
#2, PTAAG, RO, (RB) 
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r 
#58, R1, 2(RO)CRB) 


roe 


Pee Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Ge Se Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Fe Fe Se Se Be Se Se Se Se 
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H 10 
BPASFSS 16-Sep-1984 01:33: AX-11 Bliss-32 V4.0-74 p 
1-006 encom 8Re Phasies | PASAT Obdegaze, ¥e-055° age 96 
¢ 1 7 BEQL ©-*1'1$ ; 
0 oc oc iH i, 108:  ROVZBL KCATE_LENGTH, RO : 0861 
68 38 A 3, FF LOCC 488, AG. (RBS : 
: 2 001 BNEQ 12 : 
D4 00105 118: CLAL R ; 
34 AE 1 0 107 128:  MOVL Ri DEV_PTR : 
18 AE 1D =A? 1 MOVAB 29(R7),~24(SP) + 0863 
34 AE D5 0011 TSTL DEV_PTR : 
9 1 11 BEQL 138 : 
18 «BE 34 OAL : oi § RB, DEV_PTR, a24(SP) : 
03 11 00118 BRB 14§ : 
0 be TE Sk Boies fae; | AbvieL SAE DeNGTH, a0 : 0868 
68 8 3 3A 0124 LOCC #60. RO. (RBS : 
g 12 00128 BNEQ 15$ : 
D4 01 A CLRL RY : 
SA 51 D 012C 15$: MOVL R1, PROT_PTR : 
54 13 OO10F BEQL 218 : 0870 
SA T.] § 00131 SUBL2 8, PROT_PTR : 0873 
30 01 AA4B 91 001 CMPB  =s-:« 1 (PROT_PTR)CR8], #48 ; 0875 
07 1F 00139 BLSSU 16S : 
39 01 AASB 91 001 CMPB 1(PROT_PTR)CR8), #57 3 | 
29 18 00149 BLEQU 18$ : 
50 OC AE 9A 00142 16$:  MOVZBL XLATE_LENGTH, RO + 0883 
50 SA C¢ 00146 SUBL2 PROT_PTR, RO : 
50 p 00149 DECL : 
01 AAG 50 3c 3a 00148 LOCC #60, RO, 1(PROT_PTR)CR8I : 
02 12 00151 BNEQ 17$ : 
51 04 00153 CLRL RT : 
SA 51 00 00155 178:  MOVL 1, PROT_PTR ; 
28 13 00158 BEQL 218 : 0885 
SA C O15A SUBL2 R8, PROT_PTR ; 0888 
30 01 AASB 91 0015D CMPB  =—s-:« 1 (PROT_PTR)CR8], #48 3 0890 | 
OD 1F 00162 BLSSU-:19$ ; 
39 01 AAGB 91 00164 CPB =s«<A(PROT_PTR)CR8), #57 : 
96 1A 00169 BGTRU 19$ : 
1€ A? A 90 00168 18$:  MOVB  PROT_PTR, 30(R7) > 0892 
14 11 OO16F BRB 21$ ; 
58 AE DD 00171 19%:  PUSHL BYTE_COUNT > 0895 
58 DD 00174 PUSHL R : 
000000006 00 02 FB 00176 208: CALLS #2, BPASFREE_BLOCK ; 
000000006 F DD a188 BUSHL weAss_ NUM + 0896 
50 OC AE 9A if 21$ MOVZBL XLATE LENGTH RO : 0912 
ry.) 50 3 3a 00189 LOCC =—_s« #447, -RO. (RBS : 
é 12 001 BNEQ : 
51 04 0018F CLRL oR ; 
16 AE 1F A? 9E 00191 228:  MOVAB 31(R7), 20(SP) > 0917 
51 : 196 TSTL wiT_PfR ; 0914 
11 19 BEQL : 
16 BE 51 58 : 19A SUBB3 RB. SWIT_PTR, a20(SP) : 0917 
146 BE 18 BE 1 0019F CMPB 4 (SP), ~a20(sP) : 0919 
1B OO1A4 BLEQU : 
18 4 94 14g CLRB 4(SP) : 
11 OO1A BRB : 0914 
16 BE 94 OO1AB 238:  CLRB a@20(SP) : 0923 


— 


—- 


=p 


10 
| BPASFSS rhese -1984 01:33:55 AX-11 Bliss-32 V4.0-74 P 7 
1-006 12-88-1882 94333233 BASRTL.SRCJBPAFSS.B32; _ (3) 
50 1E AT? QA OOTAE 248 MOVZBL 30(R7), RO : 
1 D4 189 CLRL a : oe 
D3 1B TSTL RO : 
1 186 BEQL 268 ; 
p 1B INCL RY. : 
14 BE 1BA TSTB © @20( SP) : 
18 13 0018D BEQL. © 26$ : 
50 14 BE 91 001BF CMPB a O(SP), RO + 0933 
18 1A O01C BGTRU 4 : 
58 pp gic PUSHL BYTE_COUNT + 0938 
000000006 00 0 FB OICA CALLS iS BPASF REE BLOCK : 
000000006 __8F pp 101 PUSHL apis ILLSWIOSA : 0939 
O2EA 31 o107 S$: BRW 73$ : 
95 1 £9 001DA 26$:  BLBC Ri, 28 + 0944 
6 0 DO 001DD 27$:  MOvL RO, END_PARTI + 0946) 
OF 11 OO1E BRB ; 
14 BE 3 Ole 28$: TsTB 920 (SP) + 0949 
56 14 BE A gue? MOVZBL $20(SP), END_PART1 : 0951 
56 OC AE 9A OO1ED 298:  MOVZBL LATE LENGTH, END_PART1 > 0953 
1c A? 1 BE 71 oir! 0$: CHP 4(SP), 28(R7) ; 0960 
59 18 BE 9A 001F8 MOVZBL @24(SP), NEXT_POSN > 0962. 
OF 11 OO1FC BRB : 
1C a7 73 Ole 31$: ts gar” > 0965 
59 10 =A? OA 00903 MOVZBL 28(R7), NEXT_POSN ; 0967 
83 99 b0509 ++ ai {All ae 
4 D4 00308 328: CLRL NEXT_POSN ; 0969 
6E 59 09 0200 33$:  MOVL § NEXT“POSN, NEXT_CHAR : 0971 
Se be OLd19 Peet ext CHAR , are 
0 00 BESS 9A 00214 34$:  MOVZBL @NEXT CHARCR8), RO + 0980 
sok 33 3 09 19 guesses a 
5 OC BE 23 0525 SUBLo. NEXTEHAR’ RO ; 0965 
00 BE48 50 5D oF sf 0226 Loce HOS TRON NE XT_CHARCR8) : 
92 12 00220 BNEQ 353 : 
1 04 002eF CLRL RI : 
59 31 bg 1 35$: MOVL 1, NEXT_POSN ; 
A BEQL 44§ > 0987 
1 11 BRB 38$ + 0990 
3¢ 9 9 6 36S: cMPB R { #60 ; 1001 
50 0c AE oA 0 30 ROVZBL XLATE LENGTH RO : 1003 
00 BE48 8 5 0 44 Loceé—sst g- RO, @NEXT_CHARCR8) F 
? 4A BNEQ 3 ; 
D 4C CLRL aR ; 
59 i i af 378 ROVE Rl NEXT_POSN aie 
50 E 01 4 33 ADDL3 #1, NEXT_CHAR, RO ; 108 
41 BF 6048 91 CMPB 3s (RO) CRBIT #65 ; 


1b-500-1984 1:33:33 AX-1 


Bliss-32 V4.0-74 Page 98 
4-Sep-1984 11 (3) 


1 $s 
BASRTL.SRCJBPAFSS.832; 


ws 


9$ F 
s : A Ui SRE HF ear cane, ! 
SA OF 6048 $1 és CHPE (RO) (R83; #90 ; 
59 gF 2 00269 388: UBL? RB, NEXT_POSN : 1016 
6E 1 Ag Sf : MOVAB 1(R9), NEXT_CHAR + 101 
0 AE 83 A? 9 0 " 39$:  MOVAB 9(R7) (SB) t 1029 
36 6 9 ? MOVB NEXT_CHAR, a48(SP) : 
5 D 0 79 MOVL_ NEXT“CHAR, NEXT_POSN + 1030. 
5 3 7¢ SUBL3 NEXT SN, END_PART1 R2 + 1032 
6908 5 5 3A 0280 LOCC  #37,7R2, (NEXT~POSN) (RB : | 
; 2 0 3 BNEQ 40S : 
D4 CLRL sR : 
51 D3 0289 40$:  TSTL Ri : 
09 13 00 88 BEQL 418 : 
a a ey bee 
6948 * $9 ” Hi 3A 00296 41$: LOCC #63, R2, (NEXT_POSN)CR8) + 1041 
a a ! 
ea : 
A LOCC #37, R2, (NEXT_POSN)CR8) + 1045 
— " es fog 
51 D4 OO2AA CLRL sR : 
51 D3 OO2AC 43$: TSTL AI : 
Ce at CoSeh acs: beatae : | 
6948 52 ore 3 $05e5 45$: LOCC #63, R2, (NEXT_POSN)CR8) + 1057. 
02 12 00288 BNEQ  46$ : 
1 04 O02BA CLRL sR ; 
5 3 Oooee °* = obeat GTS 
61 23 9 00 ‘ nove #37, (PTR) ; 1058 
47$:  MOVZBL @NEXT_CHARCR8], RO : 107 
toma e oe hid 
MOVAB DOLLAR STRING, LOG_DIR_ADDR > 1075 | 
20 $ ore 6B $0 0 05 nove #11, LOG_DIR_LEN : 1976 | 
23 ef 91 OO2DA 48$:  CMPB RO #35 : 1080. 
er $f 86 OF BOVAB 498 STRING, LOG_DIR_ADDR > 1082. 
= $ — Op $ ° 3 nove #13.-LO6_DIR_LEN” 1 ; 1088 
21 $5 91 OOZEA 49$:  CMPB RO, #33 : 1087. 
F ee Mi 6 EP SOVAB 208 STRING, LOG_DIR_ADDR > 1089 | 
" $ - 0 #0 i} nove siz. LOG_DIR_CEN ~ ~ : 1930 | 
26 6 91 OOOFA 50$: CMPB R9 #38 > 1094. 
Ob 12 OoeeD BNEQ 52s : | 
10 A FCEA CF 9 FF MOVAB AMPER STRING, LOG_DIR_ADDR > 10 
; BFE SSE ous, RR Hey sarin ee 
32 YF OO30A aR is” : 1070 


inc 


prnse ss 16-500-19 “4 91:33:33 eet Bliss-32 V4.0-74 


14-Sep-1984 11 BASRTL.SRCJBPAFSS.B32; 
40 BF 50 91 0030C 528:  CMPB RO, #64 
- 7 19 BNEQ age 
10 AE 99000000" EF p 1 MOVL §§ BPASAL_USRPPN+4, LOG_DIR_ADDR 
52 00000000' gf 1A MOVB BPASAL-USRPPN, LOG_DIR_LEN 
10 he 6 5 : ai 46 BIR_ADDR 
08 1 BNEG gil. 
10 AE FCCR 3OCF i 6 8 MOVAB END_STRING, LOG_DIR_ADDR 
2 9 6 538: CLRB_ s- LOG “DIR_L 
08 AE 5 C3 4$: SUBL3 NEXT_POSN, END_PART1, 8(SP) 
04 AE 5 9 gi 0 ADDL3 NEXTIPOSN, RB, ~4( 
046 BE 08 AE 4 3a 0 A LOCC  #36,~8(SPS, a4(SP) 
2 12 49 BNEQ 55$ 
1 bs bode sss: SIE 
35 03 00 46 BNEQ 60s 
04 BE 08 AE 33 3A 0034 LOCC }«=—«_—s«s#35,, - B(SP), a4(SP) 
2 12 00346 BNEQ  56$ 
51 04 0035 CLRL RY 
51 DS 00352 56s mnCté«< 
28 12 00354 BNEG 60$ 
04 BE 08 AE 21 3A 00396 LOCC #33, 8(SP), a4(SP) 
02 12 0035¢ BNEQ 57% 
51 04 0035 CLRL sR 
51 05 00360 57$: TSTL RI 
1D 12 00362 BNEG  60$ 
04 BE 08 AE 26 3A 00364 LOCC #38, 8(SP), a4(SP) 
2 12 0036A BNEQ 58 
21 Be Ooses sas: SETE OR 
OF 12 00370 BNEG  60$ 
04 BE 08 AE 40 8F 3A 00372 LOCC #64, 8(SP), a4(SP) 
02 12 00379 BNEQ 59$ 
21 Be oosrp sos: fSiE OR 
15 3 iste BEQL 618 
58 AE DD 00381 60$:  PUSHL BYTE_COUNT 
58 DD 00384 PUSHL R8 
000000006 00 2 FB 00386 CALLS #2, BPASFREE BLOCK 
000000006 8F DD 00 80 PUSHL #BAS$_ILLFILRAM 
sc NSE SF 00306 618:  BUSHAB COPY 
7E FF BF 9A 00399 MOVZBL #255, -(SP) 
000000006 00 98 é 0 90 CALLS #2, BPASGET_BLOCK 
1 AE D AG MOVL RO, STS 
08 1¢ AE EB 003A8 LBS =s-« STS, 62% 
58 AE DD OO3AC PUSHL BYTE_COUNT 
58 DD 6 AF PUSHL RB 
0089 1 00381 BRW 65% 
58 é A 00384 62$:  MOVZBL LOG_DIR_LEN, R11 
55 13 00387 BEQL 4$ 
C AE FF 6A9 9E 00389 MOVAB =-1(R9), 44(SP) 
= FF «BF «9A 0038 MOVZBL #255, $6(SP) 
0 A 5c 6 AE. «SOO (003C MOVL PY >) 
AE 00 6 3¢ AE 2c cé MOVES 44(SP), 8), #0, 36(SP), a32(SP) 
8 18 D1 BGEQ 63% 
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D 11 
BPASFSS 16-Sep-1984 01:33: AX-11 Bliss-32 V4.0-74 Pa 5 
1-006 13-88-38 01:83:33 EBASRTL SRe BPAFSS.832: - Ri 
39 6143 91 007¢6 CMPB ss (R11) CEXPANDJ, #57 ; 
1 JA 7CA BGTRU 126$ : 
38 2 C 007CC MOVZWL PPN_VAL, R2 3 1511 
A gs 7¢F MULL2 #107 R : 
| 2 6143 9A 00702 MOVZBL (RISCEXPAND], R4& : 
: 4 C9 0706 ADDL 4 : 
| 50 5 0 A 970 SUBWS #48, R2, PPN_VAL : 
9 D6 007DD INCL NEXT_POSN + 151 
DB 11 007DF BRB 125$ : 150 
07 «AS 5 90 ore] 1268: move PEN VAL. 7(R5) : 13 
| 59 09 ores 1378: MOVL i. NEXT_POSN + 151 
30 6 EO OO7EA 128$: 88S #9. (RIIT, 1318 + 152 
5 § DO OO7EE MOVL  PARSED_ADDRESS, EXPAND : 13¢ 
59 06 007F1 INCL NEXT_POSN 3 15 
50 B4 O7ts CLRW = PPN_DJAL : 152 
51 SA 59 ci 007F5 129$:  ADDL3 NEXT_POSN, PPN_PTR, R1 : 152 
30 6143 91 007F9 CMPB © (R1) TEXPAND], 848 : 
i 1F OO7FD BLSSU- si : 
39 6143 91 OO7FF CMPB = (R11) CEXPANDJ, #57 : 
15 1A 00803 BGTRU 1 : 
54 50 3c 00805 MOVZWL PPN_VAL, R4 + 1530 
54 OA C4 00808 MULL2 #107 R : 
52 6143 9A 00808 MOVZBL (RISCEXPAND], R2 : 
54 52 co 0O80F ADDL ¢ R : 
50 54 30 A3 00812 SUBWS #48, R4, PPN_VAL ; 
59 D6 00816 INCL NeXt _POSN > 1531 
DB 11 00818 BRB 129$ : 1387 
06 AS 50 90 0081A 130$: MOVB  PPN_VAL, 6(RS) : 15 
53 56 DO OOB1E 131%: MOVL PARSED_ADDRESS, EXPAND : 1543 
28 «AE Be eet TSTL NODE_PTR : 1545 
07 13 00824 BEQL ; 
59 28 «AE 02 C1 00826 ADDL3 n NODE_PTR, NEXT_POSN ; 
02 11 00828 BRB 138$ : 
59 D4 008 D 1328: CLRL_ NEXT_POSN : 
50 34 OE 59 83 OO82F 133$:  SUBB3 NEXT-POSN, DEV_PTR, DEVICE_SIZE : 1547 
50 50 9A 008 MOvZBL DEVICE SIZE, R : 1561 
6943 50 24 3a 00837 LOCC #36, RO, (NEXT_POSN)CEXPAND] : 
02 12 0083c BNEQ 134$ : 
51 04 0083 CLRL sR ; 
6€ 51 09 0084 1348: MOVL 1, NEXT_CHAR ; 
24 13 0084 BEQL 137$ > 1563 
38 BE48 9F 00845 PUSHAB @USR_DEV PTRERS] : 1570 
18 AS 3 80 0849 MOVW ac(SPy+, 24(R5) $ 
38 BE4S 9F 00840 PUSHAB @USR_DEV PTRCRB) > 1572 
424B 8F 9 B1 Boaeg CMPW aise. 16971 3 
08 13 6 56 BEQL 135$ ; 
38 BE48 9F 00858 PUSHAB @USR_DEV PTRCRB : 
4954 8F 9 81 085¢ CMPW 32S aa(SPY+, ¥18772 ; 
03 12 00861 BNEQ 136$ ; 
03 Ad 9G 0 63 135$: CLRB 3(R5) F 
0081 31 1 és: BRW 145$ > 1563 
16 A? 694 0869 137$: MOVB  (NEXT_POSN)CEXPAND], 22(R7) : 1578 
17. A? 01 A943 90 00 MOVB  1(NEXT_POSN)CEXPANDS, 23(R7) : 1579 
54 BF 6943 91 00874 CMPB (NEXT _POSN) CEXPAND, #84 3 1581 
1 ie 0879 BNEQ 138% F 
55 8F 01 A94 g 0878 CMPB 1(NEXT_POSN) CEXPAND), #85 F 
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E 
i" ° iss-32 V4.0-74 Page 36 i§ 
1hese -1984 01:33: AX-11 Blis 42 ae 
| pease ss 1a-sep-19 4 01383233 BASRTL.SRCIBPAFSS.B32 . 
14 7 : oe 
| ;] ante 5 4, 23(R7) :1 
: 1585 
| ud 4 6 ! 26 novi ' 38. UNIT_VAL ; 1383 
B4 O088E 7 vA : 1388 
| a i368; Aboe yy REXt POSN : 1590 
: 159 
| H a i 6 9 1398 cmpae CNExT POSH) CEXPAND], #58 1592 
6908 93 0 39 Pee (NEXT _POSN) CEXPANDJ, #65 ; 1595 
ies ee welt Gd fas OE bt, reemeewees, om : 
me RU 141$ ~ + sess 
51 me oh ash ADV (NEXT POSN) +LEXPAND], R1 
2 2} - 1 3 OOsar mu #6 RI CTLR_VAL o sees 
. 24 ages a tt MOVE L  (NEXT_POSN)+CEXPAND], R4 ; 
2 54 C0 OO8BA ADDL Ra RT ate wal Si 
™ 3, rk $3 it tad oMeB (NEXT POSN) LERPAND, #58 
‘ 697 13 008C¢ BEQL 40$ S 1605. 
51 50 3¢ ited MOV ZyL UNIT VAL, R1 
24 eos Sh inte MOVIL (NEXT_POSN)CEXPAND], R4 
Pe POR EN spe ~ 
23 3) 4 8] 008D8 140$: ADDB3 UNIT_VAL, CTLR_VAL, 21(R 1907 
| oie oN HBS seis, Bly UF peowcremes, oe we 
re et an an, ptemneateenniee : 
oe ~ ah inte} BGTRU in5s por 
51 50 3C OO8EB MOV ZL UNIT _VAL, R1 
2) a9e8 SR it tad MOV ZBL (WERT POSN) +CEXPAND], R2 ; | 
3} 36 fe rte song #46, R1, UNIT_VAL S612 
- 2 1 y BFC BRB 141§ eat : 113 
15 A? 5) 90 GOs 142$: nove UNIT VAL. 1595 
03 (11 | 
904 143$: CLRB  21(R7) : 1682 | 
16 A? = Mf af 00304 144$: MINE GB HY gS 0°R2) as) i Hl 
a i A 8 594 MOVB ata 36ins) : 1630 
i A? 30 $31 MOVB O(R7) (R5 : 163) 
adh ao $8 AE DD OO91A 1458: PUSHL BYTE_COUNT | 
55 PB etd CALLS a3 BPASFREE_BLOCK i dens 
a | FF ge 9a 00926 via. #255, -(SP) 
0000 * a S55 te ‘BPASFREE BLOCK ion 
05 FB 0092D CALLS #2, . 
nes 2 1 5 0934 146$: MOVL #1. RO : 1636 
” . Be 0937 RET 


; Routine Size: 2360 bytes, Routine Base: _BPASCODE + 013A 
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BPASFSS 18-Se 1984 01:33: AX-11 Bliss-32 V4.0=-74 P 
1-006 14-Sep-19 4 91:38:38 YBASRIL SRCIBPAFSS.83271 te & 
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ROUTINE bpaSfile_scan (fsb_ptr) = 
'ee 


: FUNCTIONAL DESCRIPTION: 
Routine pee the filespec described in the FSB 


ROUTINE VALUE: 


09 ec 
08 64 
09 64 
’ ec 
; 64 via SPARSE and loads the resultant data into 
64 the FSB. It may also perform any required conversion 
$ + from a RSTS-type device name to the VMS-type name. 
§ $3 FORMAL PARAMETERS: 
: o2 fsb_ptr =- the longword address of the FSB 
, $2 IMPLICIT INPUTS: 
: ae om 
4 65 IMPLICIT OUTPUTS: 
5 65 
6 66 NONE 
7 66 
8 66 
66 
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. 
' 
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4 
* 
' 
. 
‘ 
. 
' 
' 
. 
te 
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AL 

fab : $fab_decl, 

nam : $nam_decl, 

esb : REF QECTOR C, BYTE), 
Length, 

sts; 


File Access Block 
Name block 
Expanded string buffer 


oe Returns error from RMS, else TRUE. 
oF SIDE EFFECTS: 
66 If parsed OK, FSB loaded with the address & length of the 
3 66 expanded string, and status bits from the NAM block 
3 67 - 
3 67 
3 67 BEGIN 
4 67 
4 67 Pp 
; 4 fsb_ptr : REF $fsb_def; ! address of FSB 
4 67 Loc 
4 67 
4 6 
4 6 
4 6 
6 


Contains string Length 
Status from routines 


'¢ 
Get buffer from free core 


IF NOT (sts = bpa$get_block (nam$c_maxrss, esb)) THEN RETURN (.sts); 


'¢ 
: Initialise fab and nam blocks 


$fab_init (fab = fab, fna = .fsb_ptr Cfsb$a_fsa], fns = .fsb_ptr Cfsb$l_fsl], nam = nam); 
Snam_init (nam = nam, esa = .esb, ess = nam$c_maxrss); 
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H 11 
BPASFSS 16-Sep-1984 01:33: AX-11 Bliss-32 V4.0-74 Page 39 
1-006 a3 198e 91:88:8  Ebasere’Seedeparss 030; wot 
; 1263 1697 ‘+ 
> 1264 1998 ! Call Sparse and check return status 
: 1566 1900 § 
; : ef 178) a teb_ptr Cfsb$b_dev_off] NEQU 0 ! If a device is present... 
> 1269 1708 fsb_ptr Cfsb$v_status] = 1; 
3; 1270 1704 
; : a 1203 ! ...assume VMS device so set NFREP for now 
3 3 ig 1509 If NOT (sts = Sparse (fab = fab)) 
3: 1274 1708 THEN 
: 1275 1709 
: 1276 1710 SELECTONEU .sts OF 
: 1277 1711 SET 
: 1278 fa 
3 1279 171 Crms$_dev) : 
: 1280 1714 BEGIN 
3; 1281 1715 Length = _.fsb_ptr Cfsb$t_fsl); 
3 is6 ay fsb_ptr Cfsb$v_status] = 0; ! Non=VMS device so zap NFREP 
3; 1284 1718 4 If NOT (translate_dev (.fsb_ptr Cfsb$a_fsa], length)) 
3; 1285 1719 3 THEN 
: 1286 1720 4 BEGIN 
3: 1287 1721 4 soon tres block (.esb, nam$c_maxrss); 
> 1288 17 ; 4 RETURN (Bas$_illfilnam); 
3 44 7s 4 END 
: 1290 1724 3 ELSE 
3 f 34. Wie? 4 BEGIN 
3 1 4 1726 4 fab Cfab$l_fna] = .fsb_ptr Cfsb$a_fsal; 
: 129 1727 4 fab Cfab$b_fns] = .length; 
3 1296 1728 4 
3: 1295 i768 5 IF NOT (sts = Sparse (fab = fab)) 
> 1296 1730 4 THEN 
3; 1297 He} 5 BEGIN 
; 1298 17 § 5 bpa$free_block (.esb, nam$c_maxrss); 
3 if 344 1733 5 RETURN (Bas$_illfilnam); 
3 1 1734 4 END; 
3 it Hey 4 
31 3 17 $ ; END; 
a | 4: 
31 1738 END; 
3 1305 1739 
31 1740 COTHERWISE) : 
3 1 1741 N 
3 1308 Ho bpa$free block (.esb, nam$c_maxrss); 
31 174 RETURN (Bas$_illfilnam); 
3; 1310 1744 END; 
3 1311 1745 TES; 
3 3 1 i | 
3; 131 174 fsb_ptr Cfsb$a_fsa] = .esb; 
3 1314 178 fsb_ptr Cfsb$l_fslJ = .nam Cnam$b_esl); 
3 : + Ha fsb_ptr [fsb$l_stat_bits] = .nam Cnam$l_fnb): 
; 1 " He} IF .nam Cnam$v_exp_name]) THEN fsb_ptr Cfsb$v_name_seen] = 1; 
: 1319 1388 IF .nam Cnam$v_wild_name) THEN fsb_ptr Cfsb$v_name_wild) = 1; 


| 


—D——— 
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| BPASFSS $ep-1984 3:55 AX-11 Bliss-32 V4.0-742 P 40 
7=006 eagee 138s 94i83:8h | HANSAT Obhe saber ¥$-83549 a 
: 1320 1754 
: ! 1 4 5 IF .nam Cnam$v_exp_type] THEN fsb_ptr Cfsb$v_ext_seen] = 1; 
; : § A 5 IF .nam Cnam$v_wild_type] THEN fsb_ptr Cfsb$v_ext_wild] = 1; 
3 ; 5 1788 IF .nam Cnam$v_grp_mbr] THEN fsb_ptr Cfsb$v_ppn_seen] = 1; 
; : ? 170) IF .nam Cnam$v_wild_grp] THEN fsb_ptr Cfsb$v_proj_wild] = 1; 
3 : 9 1768 IF .nam Cnam$v_wild_mbr] THEN fsb_ptr Cfsb$v_prog_wild] = 1; 
; : 1 1708 IF .nam Cnam$v_exp_dev] THEN fsb_ptr Cfsb$v_dev_seen] = 1; 
:1 § 1709 ‘+ 
: : : 1769 } Set NFREP if node, non-ppn directory or version # present 
:1 1770 2— 
: 1337 4a 4 nen Cnam$v_node] OR (.nam Cnam$v_exp_dir] AND NOT .nam Cnam$v_grp_mbr]) OR .nam Cnam$v_exp_ver]) 
3 1339 1378 fsb_ptr Cfsb$v_status] = 1; 
: 1340 1774 
: 1341 1775 RETURN ss$_normal; 
3: 1342 1776 «1 END; !End of routine BPASFILE_SCAN 
-EXTRN SYSSPARSE 
O1FC 00000 BPRASFILE_SCAN: 
~WORD Save R2,R3,R4,R5,R6,R7,R8 : 1640 
58 00000000G 00 9 90008 MOVAB SYSS$PARSE, R&S r 
5E FF48 ge 9E 000 MOVAB -184 CSP) SP : 
E dd 0000 PUSHL : 1689 
7 FF 8F 9A 0001 MOVZBL 3 
000000006 06 08 FB 0014 CALLS » beasce! _BLOCK ; 
5 50 dO 00018 MOVL R sts 3 
04 57 E8 OOO1E BLBS 0 ; 
50 57 00 00021 MOVL STS. R RD 5 
3 0024 RET 3 
0050 &8F 00 6E ‘ 09 C Ss ; 1$: MOVCS #0, (SP), #0, #80, SRMS_PTR : 1694 
68 AE 500 ar 80 002E MOV #20483. SRMS_PTR : 
7E AE $ 00 MOVB » $RMS _PTRE 2 3 
CF AD 0 90 0 MOVB SRMS PTR+31 : 
D8 AD 08 AE 9E 0003¢ MOVAB ro RMS _PTR+40 F 
56 4 AC DOD Bhes MOVL FSB_PTR 3 
pc =o AD 04 Ab 6 45 MOVL 4(RB), $RMS_PTR+44 : 
E4 AD 68 O4A MOVB (R6), SRMS_PTR+52 é 
0060 «BF 00 v3 00 2c a035 MOVCS #0, (SP), BO, #96, SRMS_PTR ; 1696 
08 AE 6008 F B0 008 MOV te SRMS_PTR : 
1 as 1 D MNEGB SRMS _PTR#10 : 
5 2 D 1 MOVL R2 ~ : 
14 AE 3 MOVL *SRMS _PTR+12 3 
iD OA 68 TST B5tr R6) > 1701 
8 1 068 BEQL $ ; 
23. Ab 80 F 0060 BISB2 #128, 35(R6) : 1703 


—————___——— 


1 
BPASFSS 18-Se -1984 01:33: AX-11 Bliss-32 V4.0-74 Page 41 
1-006 aaa 1 94:33:33 BASRTL.SRCIBPAFSS_B32; 9 a) 
68 AF 9F 00072 2S: PUSHAB FAB : 1707 
$8 FB 0007 CALLS #1, SYSSPARSE : 
9 D 7 VL RO, STS : 
48 E 7B BLBS STS, 4$ : 
0001844 = 8F , D} Ht cHPL 318. #99526 : 1713 
04 AE 6 § o8 MOVL (Rg), LENGTH + 1715 
23. AG 0 8F 8A 000 BICB2 #128. 35(R6) : 1716 
4 AE 9F 000 PUSHAB LENGTH : 171 
04 A6 DD 0009 PUSHL  4(R6) : 
0000v CF 9 FB 0096 CALLS #2, TRANSLATE _DEV : 
4 E 0098 BLEC ~=_—«aRO,_- 38 : 
pC AD 4 Ab BO 9 MOVL  4(R6), FAB+44 : 1726 
4 AD 4 AE OOA MOVE LENGTH, FAB+52 : 1727 
68 AE 9F 000 PUSHAB FAB + 1729 
6k 01 FB 000AB CALLS #1, SYSSPARSE : 
57 20 DO OOOAE MOVL RO, STS : 
15 5 E 0081 BLBS st 43 : 
7E FF BF 9A 000B4 3$ MOV7ZBL #255, -(SP) + 1742 
32 DD 00088 PUSHL R ; 
000000006 00 0 FB OOOBA CALLS #2, BPASFREE_ BLOCK : 
50 000000006 &F BO O0¢} MOVL #BASS_ILLFILRAM, RO + 1743 
06 Ab 52 D0 boocs 4$: MOVL R2, 4(R6) + 1747 
66 13 AE 9A 000CD MOVZBL NAM+11, (R6 : 1748 
18 AG 3¢ AE DO 99001 L  -NAM#52, 24(R6) : 1749 
04 3C AE 0 Et 0006 #2, NAM+52, 5 > 1751 
20 A6 01 88 90008 BISB2 #1. 32(R6) : 
04 C be 05 Ei OODF 5$ #5. NAM+52, 6$ : 1753 
20 A6 02 88 O00E4 BISB2 #2. 32(R6) : 
04 C AE 01 EI O0E8 6$ BBC #1, NAM+52, 7$ t 1755 
20 A6 10 88 000ED BIsB2 #14, 32(R65 : 
04 ce’ 04 FI OOF! 7$: BBC #4, NAM+52, 8S : 1757 
20 A6 20 8 000F6 B1SB2 #32, 32(R65 : 
05 — AE Ei OOOFA 8$: BBC #3, NAM+54, 9$ : 1759 
20 Ab 80 8F 88 O00rF BISB2 #128, 32(R6) : 
04 3F AE 59 0104 9$: BLBC. NAM+5S, 10$ : 1761 
21 Ab 01 88 00108 BISB2 #1, 33(R6) : 
04 FOAE 01 Fi 010C 10$: BBC #1. WAM+55, 118 : 1763 
216 02 8 0111 BISB2 = #2, 33(R6) ; 
3c OE COD O11 11$: TSTB. = NAM#+52 : 1765 
04 18 011 BGEQ les F 
1 Ab 0 88 OO11A BISB2 #32, 33(R6) : 
OF —E AE 1 E oi 128 BBS #i, NA 94. 14$ : 1771 
0 rim $ E1 001 BBC #6. NAM+52. 13$ ; 
04 ee 0 1 001 BBC #3, WAM+54, 148 3 
0 3c =O AE.s«#&E9. 00120 138:  BLBC  NAM+S2, 15$ : 
23. =A 80 ar 8 131 14$:  BISB2 #128, $5(R6) ; 1773 
5 1 p 4 15$: MOV. #1, RO 3 177 
4 001 RET : 1776 
3; Routine Size: 314 bytes, Routine Base: _BPASCODE + 0A72 
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FESET], CODE 
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RO 
@ADDR 
RO 


Save R2,R3,R4,R5,R6 
#3 


EN 
4 
R, 


MOVZBL PT 
PTR 
3$ 
PTR 
RAD 
OF F 
CH 
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9$ 
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BPASFSS 16-Sep-1984 01:33:55 AX-11 Bliss-32 V4.0-74 Page 44 
1-006 1ergeb= 1382 9h: 8si3 | HANSA Ose Saber Ye -8354 * | 
24 50 91 038 CMPB =s«CODE, #36 1 1844. 
is BNEQ : 
50 19 4 MOVB #33, CODE + 1845. 

D 11 0 4 BRB 10 : 
2E ! 91 00045 6$: CMPB DE, #46 + 1847. 
{5 ay BNEQ 8 
50 : 70 O4A NOV #34, CODE + 1848) 
41 BF 0 91 0004F 7$: CMPB ss CODE, #65 + 1850 
O¢ 1F 00053 BLSSU F 
SA BF 0 91 00055 CMPB ODE, #90 ; 
06 1A 0059 BGTR : 
50 CO «68F «6080 00058 ADDB2 #64, CODE > 1851) 
11. 11 O005F BRB ; 
30 50 91 00061 8$: CMPB ss CODE, #48 : 1853, 

OA 1F 00064 BLSSU9$ : 

39 50 91 90066 CMPB = CODE, -#57 : 

05 1A 0006 BGTRU 9$ : 
50 M2 82 00068 SUBB2 #18, CODE + 1854. 
02 11 b006E BRB 10$ : | 
20 94 00070 9$: CLRB «CODE + 1857) 
52 53 3C 90072 10$:  MOVZWL RAD, R ; 1860 | 
52 2 C4 0007 MULL 40; R : 

54 0 9a 00078 NOV ZBL CODE, R4 : 

53 52 54 Al 00078 ADDW3 R4, R2, RA : 
AF 51 9 F3 OO07F AOBLEQ #2. OFFSET, 5$ + 1834 
50 3 00083 MOVZWL RAD, RO + 1863 
04 00086 RET + 1864 


; Routine Size: 135 bytes, Routine Base: _BPASCODE + OBAC 


N 11 | 
16-Sep-1984 01:33:55 AX-11 Bliss-32 V4.0-74 Pa 45 
102388218 - 71:38:86 BASRTL. SRC IBPAF SS .832; - (6) 


| 


006 
3; 1433 1865 1 ROUTINE translate_dev (string, string_length) = 
: 1434 1 96 1 
3: 1435 1867 1 !+4¢ 
3 1436 1868 1 ! FUNCTIONAL DESCRIPTION: 
3: 1437 1869 1! 
; 1438 1870 1! Routine scans the string given and translates it to a 
3 1439 1871 1! RSTS device name, if possible. 
: 1440 1376 1! The standard RSTS device name is of the form DDnnn, 
3 1441 + t4 1! where DD is the device (e.g. TT, MM, DB) 
: ets 1874 1! and nnn is a number from 0 to 255 
3 144 1875 1! The standard VAX device name is of the form DDCnn, 
3 1444 1376 1! where DD is the device 
3 14465 1877 1! where C is the controller id (A to ?) 
> 1446 1878 1! and nn is a number from 0 to 15 
3 14467 1879 1! ; 
> 1448 1880 1! Special cases: 
> 1449 1881 1! Tl: is translated to SYSSINPUT: 
3; 1450 1es6 1! KB: is translated to SYSSINPUT: | 
3: 1451 1883 1! SY: is translated to SYSS$DISK: 
$ 1036 1884 1! SYO: is translated to SYSSDISK: | 
3 145 1885 1! TT128 and greater are translated to | 
3 1454 1886 1! TUAO and greater 
3 1455 1887 1! 
3 1456 1888 1 ! FORMAL PARAMETERS: 
3 1457 1889 1! string pointer to the pteing : 
3; 1458 1890 1! string_length pointer to the cong of the string 
3: 1459 1891 1! (it will be updated with the new length) 
3 1460 1836 1! 
3 1461 189 1 ! IMPLICIT INPUTS: 
: 1068 1894 1! 
3 146 1895 1! NONE 
3 1464 1896 1! 
3: 1465 1897 1! IMPLICIT OUTPUTS: 
3: 1466 1898 1! 
3 1467 1899 1! NONE 
3 1468 1900 1! 
3 1469 1901 1 ! COMPLETION CODES: 
3: 1470 1908 1! 1 if success (e.g. no error found) | 
3: 1471 1903 1! 0 otherwise 
: 1676 1904 1! 
3: 147 1905 1 ! SIDE EFFECTS: 
3 1474 1906 1! 
3 1475 1907 1! NONE 
: 1476 1908 7 ! 
: 147 1909 1 !<- 
3; 1478 1910 1 
3 1479 1911 BEGIN 
: 1480 13I¢ 
3: 1481 191 P / 
: ieee 1914 string : REF VECTOR C, BYTE); 
3: 148 1915 
> 1484 1916 BIND 
: 1485 1917 sysinput = UPLIT BYTE('SYSSINPUT'), 
3: 1486 1918 sysdisk = UPLIT BYTE('SYSSDISK'), 
3 1487 1919 end_strg = UPLIT BYTE('0"); 
: 1en8 1330 
: 1489 1921 LITERAL 
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| BPASFSS 
1-006 


12 
18-Sep-19 4 91333333 y 7 
14-Sep-1984 11:56:50 BASRTL.SRCJBPAFSS.832; 
sysinput_l = sysdisk = sysinput, 
sysdisk.t = end. strg - sysdisk; 


LOCAL 
string_len, 


' the Length of the string 
dev_len, 


' 

! the length of tne device name (keeps 

! track of how such is substituted) 
dev_ptr, : pointer to ': after device name 
start_posn, ! offset to start of device name 
next_char, ! pointer to the next character 
node_ptr, ! pointer to first ':' of node 
temp_copy : REF VECTOR C, BYTE], ! pointer to temp buffer 
sts; ! status word 
string_len = ..string_length; ! set up length for easy reference 


] 
First, find the beginning and the end of the device name 


coe = CHSFIND_SUB (.string_len, .string, 2, UPLIT BYTE('::°))) EQLU 0 
BEGIN 
start_posn = 0; 
dev ptr = CHSFIND_CH (.string_len, .string, %C':"); 
ELSE 
BEGIN 
start_posn = (.node ptr + 2) = .str 


3 

; p ing; 

5 Gey ptr = CHSFIND_CA (.string_len - .start_posn, .node_ptr + 2, %C':"); 
2 

2 

: 


' 
Check to see if a device has been found, if not, get out (error?) 


If .dev_ptr EQLU 0 
RETURN 0 
LSE 


IF .node_ptr EQLU 0 THEN dev_len = .dev_ptr - .string ELSE dev_len = .dev_ptr - .node_ptr - 2; 
' Check for underline, and jump over it 
If .string C.start_posn] EQLU %C*_* THEN start_posn = .start_posn + 1; 


' 
! The next block of code does a SELECT on the first two characters 
! of the device name, and then processes each of the special cases. 
! At the end, it translates the RSTS type DDnnn to the VMS type 

: DDCnn, and handles all special cases as necessary. 


BEGIN ! beginning of translate block 
LOCAL 


a oo 


Ax-11 Bliss-32 V4.0- e Page 46 
8 (6) 
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1h-sep-19 4 01:33:55 AX-11 Bliss-32 V4.0-742 Page 47 
14 abt 91:33:23 YBASRTL SRe BPAFSS.832;1 . (6) 
device_id : VECTOR (3, BYTE], ! buffer for translated device 
substifute_addr, ' address and Length of the 
substitute_len; ! string to be substituted in 


COCOCO 


Grab the first two characters of the device 


D 
device_name = string [.start_posn] : WORD; 
next_char = .start_posn + 2; ! skip the first two characters 


WDOOOOOOOOOODOOOOO 
OOOO WMWMMOdOOo 


Select on the first two characters of the device name 


PAEAEXQPEDNAAAAANNIVI ES 
WN O OONOUSWN—"OOO~ 


SELECTU .device_name OF 
SET 


ways 
$333 
CONAVE WN —OOONAUSWINO” 


& 


QLUPVDV PV PV LVS SUSI SUIS SII 
] 
oO 


arin 73 : ' note that order is important, this must be first 


o 


DONO VEWN—OVOO~n 


PUPS BS SUSI TTSIIIOIT ES BS EAA ES SE NUTT UU BB NII AINA AIAN 


ooo 
ooo 


If .string C.mext_char] EQLU %C°:" ! “’Sy:" 
OR (.string ponent Spee s EQLU %C'0" ! "*sy0:"" 
F ee -String C.next_char + 1] EQLU 2C°:*) 
BEGIN 
; substitute "SYSSDISK’ FOR ‘SY’ OR 'SYO" 


substitute_addr = sysdisk; 
substitute_len = sysdisk t; 


Ssss 
Fun—o 


SANS SSN NSO OO 
sss 


LSE 
RETURN 0; 
END; 
CZASCII'KB') : 
BEGIN 


RAPA O 


co 
~ 


IF .string C.mext_char] EQLU 2C':' 
BEGIN 
substitute "SYSSINPUT® for ‘KB’ 


SOOCCOCOCCOCOOOCOoCoOoCoOoO 


substitute_addr = sysinput; 
substitute_len = sysinput ; 


POPIPIPININPININININININININININININININININININININININININS 2 2 9 9 A OS SS I SS SS 


SLISIILSSSISSSwBownoowe GIVI III IISS 
Rononoronory 
OCoooooeoo 


SSLESRANLSSE 
WN $9 OONOA UNE WN OC OONAUE WN“ OOONOM 


WAI.WAL AI APO POI PUPONPUNININININD 2 = OO OO oe 


unit _number ; ! work field for conversion 


Be Oe Be Oe Os Oe Oe Oe He Oe Se Be Ge Se Se Be Oe Ge Se se Se Se Se Se Se Ge Se Os Se Oe Os Se Se Se FH Ss oe SH Se Se Se Os Ss 5 Oe OH Se SHH Ss Se Se Seas eeeese 
ee ee LL Le eee Se 
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| BPASFSS 16-Sep-1984 01:33:55 AX=11 Bliss-32 V4.0-74 Page 48 
_ 1-006 10-30 8-13be 94:88:33 BASRTL.SRC BPAF SS O3204 ’ (6) 
r 1604 8 $ : This makes it easier to reference the fields of the 

3 1oh? i device_id 

; 1809 9 9 

; 1608 040 BIND 

3; 1609 041 controller_id = dovice id CO] : BYTE, 

; 1610 ok unit_id = device_id C1] : vECTOR (2, BYTE]; 

3; 1611 04 

; 16l¢ 044 : 

: 161 045 ! substitute ‘TT’ for ‘KB’ 

; 1614 Bee : 

3; 1615 04 device_name = ZASCII'TT’; 

; 1616 045 : 

3; 161 049 ! and convert to VAX format 

3; 1618 050 ' 

3; 1619 soe ! convert nnn to binary integer 

; 1620 O26 > 3 

3 1s) spar : unit number = 0; 

; 1638 spas 2 wns string C.next_char] GEQU %C'O* AND (.string C.next_char] LEQU %C'9")) DO 

3 1o¢? 2057 6 unit number = (.unit_number*10) + string C.next_char] - %C'0'; 

; 1626 2058 6 next_char = .next_char + 1; 

3; 1627 059 5 H 

3; 1628 060 5 

; lo¢9 061 5! ; 

: 16 4 5 ! check it to see if it's ok (i.e., converted all of it) 

3 1631 065 5! 

; 1038 064 5 

; 163 065 5 IF .string C.next_char] NEQU %C*:* THEN RETURN 0; 

3 1634 2066 2 

3 1635 sper ' 

: 1636 068 5 ! if the unit_number is GTRU 255, error 

3 1637 2069 5! 

; 1638 2070 5 

3 1639 2071 5 IF .unit_number GTRU 255 THEN RETURN 0; 

3 1640 $078 5 

3: 1641 07 2 

; Hy 041 074 : check for nnn greater than 127, if it is then convert TT 

; 164 075 5 ! to TU, and subtract 128 from the unit number. 

3: 1644 076 5 ! Thus, T1128 is equivalent to TuU0. 

3 1645 077 5! 

3; 1646 078 

3 1647 079 IF_.unit_number GTRU 127 

3 1648 080 THEN 

3 1649 081 6 BEGIN 

3 1650 Oa6 6 unit_number = .unit_number - 127; 

3 1651 08 string [.start_posn + 1] = %C‘'U'; 

3 1036 084 END; 

3; 165 085 

3: 1654 0. } 

3; 1655 08 ! now convert nnn to Cnn. : 

; 1338 088 ! Do this by shifting the unit_number right 4 (to drop 

: 165 089 ! the unit_id) and a ging ZC'A® to get the ASCII value 

; 1658 090 : of the controller_id, then, AND the unit_number with 

> 1659 091 § ' 15 to mask out thé controlle, and provide the unit_id 

; 1660 092 ! (needs to be converted to ASCII still) 


— 


————— pemesentnioontets 
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| BPASFSS 15-96 -1984 01:33:55 AX-11 Bliss-32 V4.0-74 Page 49 
1-006 12-300- 1 382 01388588 BASRTL SREIBPAF SS b30r7 ° (6) 
; 1661 093 : 

>; 166 094 controlier_id = .unit_number*(-4) + 2C‘A'; 

$ 1937 Bae ; unit number = .unit_number AND 15; 

: 1665 $99 i and now, convert the unit_id back to ASCII and substitute 

; 1278 84 ! for the device unit_number (note that device_name stays 

; 196! 938 } the same) 

> 1669 101 5 

: 1909 196 ff unit _munber GTRU 9 

: 1678 104 4 BEGIN 

; 167 105 6 unit_id £0} = 2C'1'; 

3; 1674 106 6 unit_id C1] = .unit number - 10 + %C'0'; 

; 1or? 4404 6 substitute len = 3; ! remember the Length 

; 1679 109 : 

3; 1678 110 6 BEGIN 

: 1679 111 6 substitute _len = 2; ! remember the length 

; 1680 git § unit id COJ = .unit_number + %C'0'; 

; 168¢ 114 5 ; 

3; 168 115 5 dev_len = .dev_len - 2; ! jump over the device name 
; 1684 116 5 start _posn = .Start_posn + 2; 

; 1083 sie ? substTtute_addr = dévice_id; ' remember the address 

: 1687 2119 4 , 

3: 1688 2120 END; 

3; 1689 sisi 

it oo. BR Pe ate 

; 1098 21246 4 

; +t $1$? : f.string C.next_char] EQLU %C':* 

> 1695 3127 . BEGIN 

> 1696 128 5! 

3 444 2180 5 : substitute "SYSSINPUT® for ‘TI' 

: 1699 131 : ; substitute_addr = sysinput; 

: 1709 $138 : pubes Seute_les = sysinput_l; 

; 1708 134 4 ELSE 

3 170 : 5 ? RETURN 0; 

> 1705 1 END; 

3: 1706 13s 

ie coe Hae ene 

: 1709 141 4 

> 1710 142 4 LOCAL 
3 Hay rs ? unit_number ; ! work field for conversion 
: 1718 145 4! 

3 1714 146 4 ! This makes it easier to reference the fields of the 

: at et 4 ? device_id 

: 179 149 4 
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IND 
controller_id = Syee9 id CO] : BYTE, 
unit_id = device_id C1J : VECTOR (2, BYTE); 
convert nnn to binary integer 
‘ unit number = 0; 
WnTLE t etring C.next_char] GEQU %C'0O* AND (.string C.next_char] LEQU %C'°9")) DO 


unit number = (.unit_number*10) + .string C.next_char] - %C'0'; 
pext.cher = .mext char + 1; 


check it to see if it's ok (i.e., converted all of it) 

IF .string C.next_char] NEQU %C‘:" THEN RETURN 0; 
i if the unit_number is GTRU 255, error 

IF .unit_number GTRU 255 THEN RETURN 0; 


TInnn is a special gese we must now check for 

nnn greater than 127, if it is then convert TT to TU, 
and subtract 128 from the unit number 

Thus, T7128 is equivalent to TUO. 


i eae es EQLU ZASCII'TT® AND .unit_number GTRU 127 


BEGIN 
unit_number = .unit_number - 
gerne C.start_posn + 1] = %C 


127; 
‘uU'; 


now convert nnn to Cnn (for all devices) 

Do this by shifting the unit_number right 4 (to drop 
the unit_id) and a ding ZC°A® to get the ASCII value 

of the controller_id, then, AND the unit_number with 
5 to mask out the controller and provide the unit_id 
(needs to be converted to ASCII still) 


controller_id = .unit_number*(-4) + ZC°A'; 
unit_number = .unit_number AND 15; 


and now, convert the unit_id back to ASCII and substitute 
sof the Gevice unit_number (note that device_name stays 
e same 


———_—___—_—_—_———_——_ 
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; 1775 07 4 IF .unit number GTRU 9 

: 1H5 05 § THEN 

> 1778 10 —+ ig d £0) = aC'1'; 

3; 1779 11 unit— -unit, number = 10 + 2C'0'; 

; 1780 \§ substitute, len'= 3; ! remember the Length 

: ihe 1, 2 ELst 

; 1588 15 BEGIN 

3 1784 1g substitute _len = 2; ! remember the Length 

: 1785 1 unit_id COJ = .unit_number + %C'O'; 

pee i ¢ ' 

: 1788 0 4 dev_len = .dev_len = 2; ' jump over the device name 
: 1789 1 4 staft_posn = .Start_posn + 2; 

3 1 § 4 subst Ttute_ addr = dévice_id; ! remember the address 

: 179 4 “: 

: hoe ae 

: 1795 227 i Get a temporary buffer from free core 

199 so 8 

; is 286 IF NOT (sts = bpa$get_block (mam$c_maxrss, temp_copy)) THEN RETURN 0; 
> 1800 223 

3; 1801 22 : ' Now, do the substitution 

; 1S ! 1) get all the bits to the be canting of the device (start_posn) 

: 180 235 ! 2) get the string to be substituted 

; 1908 $39 2 err, the © rest of the string from the ':' to the very end 

; 130 2038 5) copy Ss the temporary string 

; 1808 $520 "  CHSCOPY (.start_posn, .string, .substitute_len, .substitute_addr, .string_len - (.dev_ptr - .string), 
5 +4 $$e3 -dev_ptr, 07 nam$c _maxrss, .temp_copy); 

> 1811 $508 ' Now, copy from the temporary buffer into STRING 

; 4 a $See } and update the Length 

: 1814 246 ; ebtcing.tength = optring.ton - .dev_len + .substitute_len; 

; Hb OF sen (..String_length, .temp_copy, .string); 

: Hs 34 rH ; Return the temporary buffer 

: 1819 $2 "  bpaSfree_block (.temp_copy. nam$c_maxrss); 

3 1330 $26 tl : ! end of translate block 
: 1822 $523 END; - ! End of routine TRANSLATE_DEV 
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D0 0000 

BS 00005 
13 0013 

0 BREE as 
i Bu 
atts 
13 00023 

11 00088 

C3 00027 2$: 
9— 00028 

53 00085 
Rm, 00036 

12 00038 

D4 00030 3$: 
DO 0003F 4$: 
12 00042 

31 00044 5$: 
DS 00047 6$: 
12 00049 

C3 00048 

11 00050 

C3 00052 7$: 
9E 00056 

91 0005B 8$: 
12 00060 

D6 00062 

C1 00064 98: 
5 00068 

3¢ 0006C 

DO 0006F 

B1 000 3 

D& 90079 
BF 00078 
13 0007F 

3) 0008 
if 0087 

32 niet 10$ 
Hi nig : 
a8 118: 
B itt 

12 000A4 
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Save R2-R3.R4,R5,R6-R7.RB,RO-RIO,R11 
QSTRING_LENGTH, STRING_LEN 

STRING, -R 

#e. P.AAL, STRING_LEN, (R7) 


#2, _R3 
-(R3), NODE_PTR 


START_POSN 
#58, STRING_LEN, (R7) 


$ 
NODE_PTR 
7$ 

R7, DEV_PTR, DEV_LEN 
NODE_PTR, DEV_PTR, R1 
=2(RT), DEV LEN 
(START_POSNYLR7J, #95 
START_POSN 

TART-POSN, R7, RB 
(R113, NEXT_CHAR 
(RB), RS 


R4 
(NEXT _CHAR)CR7], #58 
(NEXT_CHAR)CR7], #48 


NEXT_CHAR)CR7), #58 
DISK, SUBSTITUTE ADDR 


SuBSTITUTE_LE 
#1697 


—-A@D-DaeKweu" 
oe 
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EXT_CHARDER7], #58 
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53 
14-Sep- BASRTL. SRC BPAFSS B32; (6) 
08 AE FF42 CF OQ Ab MOVAB SYSINPUT SUBSTITUTE_ADDR : 026 
SA 9 D AC MOVL SUBSTITUTE_LEN + 2027. 
1 AF 12$: BRB "9 : 2020 
£8 5454 er BO 00081 13$: MOoVvW #21588. (RB) : 2047. 
9 pA 0086 CLRL NUMBER : 2053. 
52 6347 9A 000B8 14$: MOVZBL UNEXT GAR? (R73. R2 + 2055. 
52 91 000BC CMPB Re 4 : | 
12 1F OOOBF BLssu. -15$ : 
39 52 91 000C1 CMPB Re #57 : 
op 1A O0C4 BGTRU 15$ : 
51 50 A g 006 MULL3 #10, ale NUMBER + 2057) 
50 DO A241 ; OOCA MOVAB =48(R2)CRTJ, UNIT _NUMBER : 
53 D6 OOOCF INCL  NEXT_C : 2058 
€5 11 00001 BRB 14$ ~ : 2055. 
3A 6347 91 00003 15$:  CMPB = (NEXT_CHAR)CR7J, #58 + 2065 | 
60 12 0007 BNEQ : 
QOOOOOFF  8F 20 D1 00009 CMPL NIT_NUMBER, #255 ; 2071, 
1A 000E0 BGTRU : | 
0000007F 8F 50 (D1 O0E2 CMPL §_- UNIT_NUMBER, #127 : 2079) 
0A 18 OO0E BLEQU : | 
81 Ad 9 O0EB MOVAB x08. RO), UNIT NUMBER ; 2082 | 
01 AB47 55 8F 90 OOOEF MOVB VStar POSNER? : 208 
51 FC 8F 78 OOOFS 16$:  ASHL IT RI + 2094 
10 AE 51 41 8F 81 OOOFA ADDB3 968. R1, CONTROLLER R_ID 3 | 
50 50 04 90 EF 00100 EXTZ2V #0, #4, UNIT_NUMBER, UNIT_NUMBER + 2095) 
09 0 D1 00105 CMPL uit. NUMBER. “*"9 : 2102) 
OF 1B 90108 BLEQU : 
11 AE 1 90 0010A MOVB Hey UNIT ID > 2105) 
12 AE 50 36 81 00108 ADDB3 #38, T“NUMBER, UNIT_ID+1 : 2106 
5A 3 DO 911 MOVL SUBSTTIUTE “LEN > 2107. 
08 11 00116 BRB > 2102. 
SA 92 DO 00118 17$:  MOVL #2 SUBSTITUTE LEN : 2111 
11s 50 0 81 00118 ADDB3 3«=-#48, put NUMBER, UNIT_ID : 112 | 
oc AE 02 C8 0120 18$ SUBL 2 #2. DE LEN > 2115) 
58 02 €0 00124 ADDL ’ START POSN > 2116) 
08 AE 10 AE 9€ 00127 VICE 10; SUBSTI TUTE_ADDR : 2117 
4954 8F 55 Bl 001 C19$:  CMPW #1877 : 2122. 
11 12 00131 BNEQ Be ; | 
54 D4 00133 CLRL RG ; | 
3A 6347 91 00135 CMPB = (NEXT_CHAR)CR7J, #58 : 2125 | 
30 12 00139 208 BNEQ 25$ : 
08 AE FEAD CF 3 01 MOVAB SYSINPUT, sugsTiTurE _ADDR > 2131) 
SA 9 DO 00141 MOVL #9, SUBSTITUTE_LEN : 2132. 
03 4 58 O44 21$: BLBS R4. 22$ : 2139. 
0080 31 00147 BRW 31§ : 
30 ps O14A 328: CLRL_ UNI T_NUMBER : 2157. 
52 6347 9A 0014C 23$: MOVZBL (NEXT CHAR)CR7], R2 > 2159, 
52 91 0015 CMPB 2, 4&8 : 
12 1F 001 BLSSU 24 : 
39 52 91 001 CMPB Re #57 : 
OD 1A 001 BGTRU 2 F 
51 50 A g5 015A MULL #10 UNIT NUMBER, R1 > 2161 | 
50 DO A241 1 MOVAB -48(R2)CRTJ, UNIT_NUMBER ; 
i a eo 1 
3A 6347 91 0016 248: CMPB (NEXT _CHAR)CR71, #58 > 2169 | 
03 1300168 25$:  BEQL 27 : 


————————————-_————cx«- 
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Probe 1b-Sen-1984 Ot: ge: 3 BASRTL. SRC IBPAFSS._B32; (6) | 
: 3$ ; 

QOOO0OFF  8F 00¢3 1%9 3s: cm oN T NUMBER, #255 ; 2175 

| 8 Bt 139 CMPW =: (RB) ,- #21588 ; 2184 
vented Ta ; 1 17 BNEQ 28$ 3 
| s ¢ 1 CMPL NIT_NUMBER, #127 : 

| cones ts toa OA 8 $18 BLEGU 28$ Fes 

1 AO 9€ 00189 MOVAB =127(R0), UNIT_NUMBER i 3187 

| 01 AB47 8 F #9 O18 move #85, 1CSART POS) LR7J 3188 

10 Ht 51 4 . gi 8198 —_ nDDgS 465, Ri, CONTROLLERID a ; z200 

” ™ 85 8 + ih ERPL {T_NU eR. a9 s . : 07 

BF 98 oolas MOVE. #49, UNIT_ID 2210) 

= © 2 5 Bolac ADDB3 #38, UNIT-NUMBER, UNIT_ID+1 : ae 

sat hee aR 68 DO oat H ade #3, SUBSTITUTE_LEN : 5507 

08 11 : 3207 

: UBSTITUTE_LEN ; 

—— 5A 02 b0 00186 298: ty #26, UNIT NUMBER, UNIT_ID ; 2317 

a: 63 ‘5 a018 — ADDL #5. START_POSN : ae 

2 9 001C MOVAB DEVICE_ID> SUBSTITUTE_ADDR i: 3202 

reall os 9 at SF OOICA 318 PUSHAB mMP_COPY : 22 

FF 8F 9A O001CD MOVZBL #2557 =(SP) : 

if FB 00101 CALLS #2, BPASGET_BLOCK | 

en or 98 £8 00108 aS ee 

Go 6— ¢3 001DB L3 DEV’ PTR, R7, RB : 2240) 

™ 3s 56 C0 O01DF ADDL 2 stk NG CEN, RB ; | 

” $5 HH 4 30 Ooi? HOVE . TEMP COPY, R9 Pegs Sli cm 2241 

04 AE 00 67 5B Be O1EB MOVCS START_POSN, (R7), #0, ‘ | 

$3 Soir? BGEQ 32% : | 

2 Pegie || Ske ir cae. t. te 

5 6S eB "LEN, @SUBSTITUTE_ADDR, #0, - : 

04 AE 00 08 BE 2 2c 00908 MOVC 4136). (RST | 

; (6 5 tit TE_LEN, &9 : 

59 AC 3 5 ADDL2 SUBSTITUTE_LEN, £2 ; | 

00 85 BE 38 sé $ O¢ aove RB BEV. PTR. #0, toe (R9) : | 

04 AE | 

$B me rien oe ecru =| 

=. § 4 ¢ 8 0021 MOVC @STRING_LENGTH, aTémMP_COPY, (R7) : 3367 | 

- =: 8 F 9A 00 3 MOV ZBL #358. TSP) 2 | 

0 ee oe = 

a a a 06 058 novL #1, RO : : 2253, 

8 : 2254. 
4 00235 33% CLRL = RO : 
* ba 0237 RET : 


; Routine Size: 568 bytes, Routine Base: _BPASCODE + 0C47 
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2006°° 1=86b-1984 91:88:80 EBASRTL SRESaparSs0355 Peer 135 


3 is : 5 } ROUTINE find switch (fsb, sw string_addr, sw string_size) = 

: 1826 $j lee 

: is i 28 : + FUNCTIONAL DESCRIPTION: 

; 1829 4 1} Routine scans the switch string to locate the 

3 \° ? ° : following switches:- 

; 18 ¢ $8 eB /FILESIZE:n 

; bth 64 1! /SIZE:n 

; 18 o> 3 /MODE :n 

; 1835 66 1! /CLUSTERSIZE:n 

: 1838 67 1! /POSITION:n 

>; 183 508 +: /RONLY 

3 33 69 1! 

; 1859 270 1! If a match is found, the value of ‘n' is determined if 

; 1840 $3 , 3 if relevant and checked for legality. If within Limits 

3 Ht ae § Lf : the value is loaded into the required field in the FSB. 

; 1803 $oi 1 ! FORMAL PARAMETERS: 

> 1844 $$02 1! 

3 1845 276 1! fsb.ra.v Pointer to fsb : 

3 1846 gerry 3 sw string_addr.ra.v Pointer to switch string 

> 1847 2278 1! sw_string_size.rl.v Length of switch string 

> 1848 $sin 1! 

3; 1849 280 1 ! IMPLICIT INPUTS: 

; 1850 2281 1! 

3; 1851 $o0¢ +} NONE 

; +5 2283 1! 

> 185 2284 1! IMPLICIT OUTPUTS: 

> 1854 2285 1! ; 

3; 1855 2286 1! The appropriate switch value field in the FSB 

3: 1856 2287 1! is loaded if a good match is found. 

> 1857 2288 1! 

3; 1858 2289 1 ! COMPLETION CODES: 

; 1859 2290 1! 

> 1860 2291 1! ss$_normal if success 

3 1861 $536 1! bas$_illswiusa if syntax error 

3 1866 § 7s 3g bas$_illnum if number error 

3; 186 294 1! 

3 1864 2295 1 ! SIDE EFFECTS: 

; 1865 296 1! 

3 1866 297 1! NONE 

> 1867 38 ;? 

3; 1868 99 1 !e- 

3 1869 00 1 

3 1870 301 BEGIN 

: 1871 308 

3 1376 30 MAP 

; 187 304 fsb : REF $fsb_def ! Pointer to FSB 
3 Ht $o2 Sw_string_addr : REF VECTOR C. BYTE]; | Pointer to sw string 
3 1878 3 LOCAL : 

3 187 308 curr_switch : REF VECTOR C, BYTE), ! Pointer to curr switch 
: 1878 309 next_switch, ' Pointer to next switch 
3 1879 $19 next_value, ! Pointer to next value 
; 1880 11 radix, ! Radix of switch value 


CSL EE eS Be icin slate coe as 
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; 1881 \¢ scan_posn, ! Current scan position 
3; 188 1 sign_flag, ! Negative flag 
>; 188 14 string_length, ! Length of string left 
> 1884 15 sts, ! Returned status value 
>; 1885 18 switch length, ' # of chars in switch 
: ieee 1 switch value : SIGNED; ! Value of switch 
; 188 18 
; 1888 1 ; Y 
3 +34 Make copies of parameters to allow modification 
; 1891 § string_length = .sw_string_size; 
3 1996 ? , curr switch = .Sw_string_addr; 
3; 1894 ; 5 ' Loop until string is exhausted 
> 1895 § 6 : 
>; 1896 327 
: 1897 $356 WHILE .string_length GTRU 0 DO 
>; 1898 3 BEGIN 
3; 1899 2350 scan_posn = 0; 
; 1900 2331 : : : 
3: 17901 th ! Check we are really pointing to the first switch, then set up pointers 
3 1o8 2335 3 ! to the next switch and to the next colon (value separator) 
| BBE 
3 Hb +4 2336 IF .curr_switch C.scan_posn] NEQU %C°/' THEN RETURN bas$_illswiusa; 
3 1907 2338 3 next_switch = CHSFIND_CH (.string Longeh - 1, curr_switch C.scan_posn + 1), %C'/"); 
: 1908 $333 ; next_value = CHSFIND_CH (.string_Cength, curr_switch C.scan_posnJ, %C':"); 
3; 1910 2341 3 IF .nmext_value EQLU 0 
3; 1911 $306 3 THEN 
3 ate 23435 4 BEGIN d 
3; 191 2344 & next_value = .string_length; 
> 1914 2345 4 
3 1915 2346 4 IF .next_switch EQLU 0 
3: 1916 2347 4 THEN 
3; 1917 $eee 5 BEGIN 
3: 1918 349 5 switch. length = ostring. Length; 
3; 1919 2350 5 next_switch = .string_length; 
: 1920 § 51 5 N 
3: 1921 26 4 SE 
: 1958 2353 5 BEGIN , 
3; 192 2354 5 next_switch = .next_switch - curr_switch C.scan_posn); 
3: 1924 $22 switch_length = .next_switch; 
3 1925 56 END 
3 19 $ 357 
3; 192 358 4 END 
: 1928 359 3 LSE 
3 94 360 4 BEGIN ‘ 
g 133 361 ? next_value = .next_value - curr_switch C.scan_posn]; 
: 1938 : 4 IF .next_switch EQLU 0 
3 193 4 THEN 
3: 1934 65 BEGIN 
3 1935 6 switch_length = .next_value; 
: 1936 367 next_switch = .string-length; 
3 193 8 END 


i ee i ht pc A CG A ~_ o : [- 
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- 4 11:56:50 BASRTL.SRC JBPAFSS.B3 
; 19 9 4 ELSE 
; 1339 8 BEGIN 
; 1940 71 next_switch = .next_ switch = curr switch C.scan_posni; 
3 1941 i switch length = MIND (.next_switch, .next_value); 
3 1306 7 END 
3 194 74 
> 1946 75 END; 
; 1945 6 
; ba | § 7 , 
3 194 3/8 ! Point to the first character of the keyword and use the first two 
3; 1948 79 ! characters to index to the required switch processing routine. 
; 1303 380 : If there is no match then an error is generated. 
> 1951 8 scan_posn = 1; 
: 1982 $388 i BEGIN” 
3; 195 Saee 4 
> 1954 385 4 BIND 
3 1322 $309 ? switch_name = curr_switch C.scan_posn] : WORD; ! First two chars of switch 
3; 1957 2388 4 SELECTONEU .switch_name OF 
: 1958 2389 4 SET 
; 1959 2390 4 
3 1960 2391 4 CZASCII'CL') : 
3 1961 $308 5 BEGIN | 
: 1908 $30, 5 
3; 196 394 5 IF .fsb Cfsb$v_cl_seen] ! Already had /CLUS...? 
3 1964 2395 5 : 
3: 1965 2396 5 RETURN bas$_illswiusa; 
> 1966 2397 5 
3: 1967 2398 5 IF CHSFAIL (CHSFIND SUB (11 ! Check aqzuere : 
3; 1968 2399 5 UPLIT BYTE (ZASCII'CLUSTERSIZE'), -Switch_length - 1, curr_switch C.scan_posn])) | 
3: 1969 2400 5 THEN 
3: 1970 2401 5 RETURN bas$_illswiusa; 
3 1971 see 5 
; 1378 2405 5 IF .switch_length GTRU .next_value ! Check for value 
3; 197 2404 5 TH 
3 1974 2405 5 RETURN bas$_illnum; 
3; 1975 2406 5 
3: 1976 vet 5 scan_posn = .next_value + 1; 
3: 1977 408 5 
3; 1978 ret 5 IF _ .curr_switch C.scan_posn] EQLU 2C'-" 
3; 1979 410 5 THEN 
; 1980 411 6 BEGIN ' Set up for -ve values 
3; 1981 413 6 scan_posn = .scan_posn + 1; 
; 1388 413 6 sign_flag = 1; 
3; 198 414 2 EN 
3 1984 415 ELS 
3: 1985 238 5 sign_flag = 0; 
3 1986 417 5 : 
3; 1987 418 5 IF .curr_switch C.scan_posn] EQLU %C's' 
3: 1988 419 5 THEN p . 
3; 1989 420 6 BEGIN ' Setup for octal/decimal radix 
3; 1990 421 6 scan_posn = .scan_posn + 1; 
3; 1991 4 ; 6 radix = 8; 
3 1936 4 2 END 
3; 199 424 : 
3: 1994 425 5 radix = 10; 
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33 2 


switch_value = 0; 


WHILE (.curr_switch «pean posnd grey %C'0") ! 
AND (.curr switch E.scan_posn] LSSU (.radix + %C'0")) ! 
AND (.scan_posn LSSU .next_switch) DO 
BEGIN ! Convert switch value 


s3ag 


00 switch_value = (.switch_value*.radix) + .curr_switch E.scan_posn] = %C'0';: 

00 scan_posn = .scan_posn + 1; 

ope END; 

4] IF .sign flag THEN switch_value = -.switch_value; ! Negate if -ve specified 
008 IF (.switch value GTR 32767) ! Check value : 

009 (.switch value LSS -32768) ! For legality 


N 
RETURN bas$_illnum; 
IF ((.curr_ switch C.scan_posn] EQLU %C*.") AND (.radix EQLU 8)) THEN RETURN bas$_ilinum; 


! If decimal and octal specified 
fsb Cfsb$w_clust] = .switch_value; ! Store away value 

fsb Cfsb$v_cl_seen] = 1; ! and set flag 

ete tne. jongte = .string_length = .scan_posn; 

curr_switch = curr_switch C.scan_posn]; 


IF .scan_posn NEQU .next_switch THEN RETURN bas$_illnum; ! Set up for next and check 


ooo0o°o 


' that in correct place 
END; 


CZASCII‘FI*, ZASCII*SI') : 
BEGIN 
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WINIAIRIPOPUNININININONUD) 2 2 2 SS OS oS 
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tre IF .fsb Cfsb$v_fisi_seen] THEN RETURN bas$_illswiusa; 
246 BEGIN 
46 
464 LOCAL 
$e $002 Sw_name_skip; ! # chars to skip 
36 2467 IF _ .switch_mame EQLU ZASCII'FI* ! Find if /FILESIZE 
37 2468 THEN ; ! of /SIZE to set offset 
38 $293 Ssw_name_skip = 0 
39 470 ELS 
rk rte Sw_name_skip = 4; 
ah 47 IF CHSFAIL (CHSFIND_ SUB ((8 = .sw_name_skip), 
04 474 (UPLIT BYTECZASCII'FICESIZE*) : : 
044 2475 +.Sw_name_skip), .switch_length - 1, curr_switch C.scan_posn 
045 47 THEN ; 
| 47 RETURN bas$_illswiusa; 
04 478 
048 479 END; 
049 480 : 
050 481 IF .switch_length GTRU .next_value ! Check for value 
051 482 THEN 
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: 2056 48 
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$ 2068 3494 
3 2064 495 
; 2065 2496 
3 5066 2497 
; 2067 Pres: 
: 2068 499 
3; 2069 2500 
; 2070 2501 
: 307 2503 
: 207 2504 
3; 2074 2505 
; 2075 2506 
; 2076 2507 
; 2077 2508 
; 2078 2509 
; 2079 2510 
; 2080 2511 
; 2081 $2i¢ 
; 2082 251 
; 2083 2514 
3; 2084 2515 
: $002 2516 
; 2086 2517 
; 2087 2518 
; 2088 2519 
: 2089 2520 
: 308 2550 
g $038 2524 
3 soee $26? 
+ 2096 $358 
; 2097 $256 
; 2098 44 
3; 2099 2530 
: 2100 2531 
: 310 25% 
: 3100 $38 
: 2104 535 
: 3105 $34 
: 210 538 
; 2108 539 
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RETURN bas$_illnum; 


scan_posn = .next_value + 1; 
if goer aur ten C.scan_posn] EQLU %C'A' 


roe 8 


BEGIN 

scan_posn = .scan_posn + 1; 
radix = 8; 

END 

radix = 10; 


switch_value = 0; 


WHILE (.curr_switch C.scan_posn] GEQU %C'0') 
AND (.curr_switch C.scan_posn] LSSU (.radix + %C'0")) ! 
BEGIN’ -SCan_posn LSSU .next switch) DO 


switch value = (.switch_value*.radix) + .curr_switch C.scan_posn] - %C€'0'; 

scan_posn = .scan_posn * 1; 

END; 
IF (.switch_value GTRU ((1*23) = 1)) THEN RETURN bas$_illnum; 
IF ((.curr_ switch C.scan_posn] EQLU %C°.") AND (.radix EQLU 8)) THEN RETURN bas$_illnum; 
fsb Cfsb$v_size] = oswiteh. value; 


fsb [fsb$v_fisi_seen] = 1; 
string_length = yey =hepath - .S$can_posn; 
Cc 


curr_switch = curr_swi scan _posn]; 
IF .scan_posn NEQU .next_switch THEN RETURN bas$_illnum; 
END; 
CZASCII‘MO') : 
BEGIN 


IF .fsb Cfsb$v_moro_seen] THEN RETURN bas$_illswiusa; 


IF CHSFAIL (CHSFIND_SUB (4, UPLIT Orry CRASCIE" MODE’), 
—_ curr_switch C.scan_posn])) 


RETURN bas$_illswiusa; 

IF .switch_length NEQU .next_value 
RETURN bas$_illnum; 

scan_posn = .next_value ¢ 1; 

fF _gcuresuttch C.scan_posn] EQLU %C'A#' 


-Switch_length - 1, 


' Check for value 


BEGIN 
scan_posn = .scan_posn + 1; 
radix = 8; 
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END 
radix = 10; 
switch value = 0; 
WHILE (.curr_switch C.scan_posn] GEQU %C'0") ~=e! 
AND (.curr_switch [.scan_posn] LSSU (.radix + %C€°0")) : 
7 ae aaa LSSU .next_switch) DO 
switch_value = (.switch_value*.radix) + .curr_switch C.scan_posn] = %C'0'; 
scan_posn = .scan_posn + 1; 
END; 
IF (.switch_value GTRU 32767) THEN RETURN bas$_illnum; 
IF ((.curr_ switch C.scan_posn] EQLU %C*.') ANS ‘.radix EQLU 8)) THEN RETURN bas$_illnum; 
fsb Cfsb$w_mode] = ogurteh volun + (1°15); 


fsb Cfsb$v_moro_seen] = 1; 
string_length = Ry ty aa gar - .scan_posn; 
C 


curr switch = curr_switch £.scan_posn]; 
IF .scan_posn NEQU .next_switch THEN RETURN bas$_illnum; 
END; 
CZASCII‘PO'I : 
BEGIN 


IF .fsb Cfsb$v_pos_seen] THEN RETURN bas$_illswiusa; 


IF CHSFAIL (CHSFIND_SUB (8, UPLIT BYTE(ZASCII'POSITION'), .switch_length - 1, 
curr_switch C.scan_posn])) 


THEN 
RETURN bas$_illswiusa; 

IF .switch_length GTRU .next_value ! Check for value 
RETURN bas$_illnum; 


scan_posn = .next_value + 1; 
switch_value = 0; 


WHILE (.curr_switch C.scan_posn] GEQU %C'0") : 
AND (.curr_switch C.scan_posn] LSSU %C'9") ! 
oF pepe LSSU .mext_switch) DO 


switch_value = (.switch_value*t10) + .curr_switch C.scan_posn] - %C°0'; 
scan_posn = .scan_posn + 1; 


IF .switch_value GTRU 65535 THEN RETURN bas$_illnum; 
fsb p [epSupostz tons = ,switch value; 


fsb [fsb$v_pos_seen] 
string_length = .string_length - .scan_posn; 


ee a ee a — é 


IF .fsb Cfsb$v_moro_seen] OR (.switch_length NEQU .next_switch) ! If has a value 


| d 13 
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; curr_switch = curr switch C.scan_posn]; 

; IF .scan_posn NEQU .next_switch THEN RETURN bas$_illnum; 

; END; 

1 CZASCII'RO') : 

; 604 BEGIN 

1 

1 


RETURN bas$_illswiusa; 


Mrrororororororrororororr 
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; 4 
; & 
; 4 
; 5 
; 5 
; ; : 
3; 21 10 IF CHSFAIL (CHSFIND_SUB (5, UPLIT BYTE(ZASCII'*RONLY'), -Switch_Llength - 1, 
3 21 611 5 curr_switch C.scan_posn])) 
3 ay soi¢ 5 THEN 
; : sol? : RETURN bas$_illswiusa; 
PF $1 2615 § fsb Cfsb$w_mode] = (1°15) + 8192; ! Set up ronly value 
; 21 $618 5 fsb [fsb$v_moro_seen] = 1; 
: 21 617 5 scan_posn = .switch_Length; 
3; 21 618 5 string_length = s0t? tog. Longen - .SCan_posn; 
; $ $38 : curr switch = curr_switch C.scan_posnJ; 
3 $! $05) ; IF .scan_posn NEQU .next_switch THEN RETURN bas$_illnum; 
; 3 $058 & END; 
3; 21 sose 4 
3 2194 2625 4 COTHERWISE) : ; 
3; 2195 2626 4 RETURN bas$_illswiusa; ! Switch did not match 
3; 2196 2627 & TES; 
3 2197 2628 4 
3 2198 soe? 3 END; 
3 2199 2630 2 END; 
; $300 2631 2 
: 2201 $o36 Fr RETURN ss$_normal; 3 
: 2202 2633 1 END; ! End of routine FIND_SWITCH 
45 SA 49 53 52 45 54 53 55 4C 43 OOE7F P.AAM: .ASCII \CLUSTERSIZE\ : 
45 SA 49 53 45 4C 49 46 OQOE8A P.AAN: .ASCII \FILESIZE\ 3 
45 44 4F 4D QOE92 P.AAO: .ASCII \MODE\ : 
4E 4F 49 54 49 53 4F 23 BOE oe P.AAP: .ASCII \POSITION\ : 
59 4C 4E 4F 52 QOE9E P.AAQ: .ASCII \RONLY\ : 
OFFC 00000 FIND_SWITCH: 
-WORD Save R2,R3,R4,R5,R6,R7,R8B,R9,R10,R11 : 2255 
36 10 ce $000 SUBL2 # 3 
5 0c AC DO 0000 MOVL  SwW_STRING_SIZE, STRING LENGTH : 2332 
58 08 ac DO 00009 MOVL SW°STRING ADDR, CURR_SQITCH : $35 
57 D5 00000 18: TSTL STRING _LERGTH ; 2328 
3 12 0000F BNEQ $ : 
O32E 31 00011 BRW 64$ 3 
B 04 00014 2$: CLRL SCAN_POSN é 2330. 
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N_POSN, CURR_SWITCH, R2 
)> #47 

R7), RO 
, ro, 1 


NEXT SWITCH 
STRING_LENGTH, (R2) 


(SCAN_POSN) CCURR_SWITCHJ 


» NEXT_VALUE 


TRING_LENGTH, NEXT_VALUE 
NEXT_S@ITCH 


STRING_LENGTH, SWITCH_LENGTH 


R2, NEXT SWITCH 
maT SUITCH, SWITCH_LENGTH 


R2, NEXT_VALUE 
NEXT_SWITCH 
10$ 


NEXT VALUE, SWITCH LENGTH 
STRING_LENGTH, NEXT_SWITCH 


R2, NEXT SWITCH 
NEXT SWITCH, R1 
R1, NEXT_VALUE 


T_VALUE, R1 
sur ice LENGTH 


POSN CURR_SWITCH, R10 
, #19523 


NEXT VALUE, SCAN_POSN 


( 
( 
( 
3 
( 
( 
$ 
ITCH LENGTH, NEXT_VALUE 
$ 
EAN_POSN) CURR_SWITCH], #45 
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PASFSS 16-Sep-1984 01:33:55 1 Bliss-32 V4.0-742 Page 63 
-006 19-808-1382 01:33:23 asa SRCIJBPAFSS.B32;1 . (33 
6E 04 000D2 18$:  CLRL  SIGNF : 261 
23 6aes 91 9004 188: CMPB ¢SCAR_POSNDCCURR SWITCH], #35 : stig 
97 ff 008 BNEQ 20 ; 
B D6 OOODA INCL SCAN POSN + 2621 
56 8 DO 000DC MOVL #8, RADI : 42@ 
11 OOODF BRB 21$ + 241 
56 A DO 000E1 208: mov. #10 RADIX + 2625 
4 pA OOE4 21$: CLRL SWITCH UE + 26427 
51 6848 9A OO0E6 228: MOVZBL (SCAN NBOSND CURR_SWITCHJ, R1 3: 2429 
30 51 91 OOOEA CMPB RI, #28 : | 
iC 1F O00ED BLSSU 23 ; 
50 30 AB SE OOOEF MOVAB 48(R6), RO + 2430 
50 51 D1 OOOF3 CMPL RI, RO : | 
13° «1€ 00086 BGEGU 23$ : 
08 AE 5B 01 000F CMPL SCAN. POSN, NEXT_SWITCH + 2631. 
0D 1g OOOFC BGEGU 23$ ; | 
50 54 56 C5 OOOFE MULL3 RADIX, SWITCH_VALUE, RO + 2433 
54 DO A140 9E 00102 MOVAB -48(R1)CROJ, SWITCH. VALUE : 
5B D6 0010 INCL  SCAN_POSN + 2634. 
dB 11 00109 BRB 22$ + 2429. 
6 £9 0010B 23$: BLBC  SIGN-FLAG, 24$ + 2637. 
54 54 CE 0010E MNEGL SWITCH H_VALUE, SWITCH_VALUE 3 
QOOO7FFF BF 54 D1 00111 248: CMPL  SWITCHVALUE, #32767~ + 2439. 
A314 00118 BGTR 16$ : 
FFFF8000 8F 54 01 OO11A CMPL § SWITCH_VALUE, #-32768 + 2440 
9a 19 00121 BLSS  16$ ; 
2€ 6848 91 00123 CMPB = (SCAN_POSN)CCURR_SWITCH], #46 + 2644 
05 12 00127 BNEQ 25$ ; 
08 56 D1 00129 CMPL RADIX, #8 : 
BF 13 0012C BEQL 16$ : 
12 Ag 54 BO 0012E 258 MOVW § SWITCH_VALUE, 18(R9) + 2447 
22 ad 01 88 00132 BISB2 #1, 34TR9) + 2448 
O1EA 31 00136 BRW 61$ + 2449 
4946 BF 6A B1 00139 268 CMPW 3=s-s« (R10), #18758 : 2457 | 
OA 13 0013E BEQL 27$ 3 
4953 BF 6A B81 00140 CMPW 3s (R10), #18771 ; 
03 13 00145 BEQL He: : 
C09B 31 00147 BRW 9$ F 
59 04 AC DO 0014A 278 MOVL FSB, : 2460 
03 22 Ad 02 gt 00146 BBC ie +30 2R9), 29$ ; 
0164 31 00153 28%: BRW 63$ : 
4946 BF 6A Bi 00156 29S: CMPwW =s-« (R10), #18758 > 2467 
04 12 00158 BNEQ 30S ; 
50 04 0015 CLRL Sy NAME_SKIP > 2469. 
03 11 0015F BRB 1S : 
50 4 09 0161 308: MOVL. #4, SW_NAME SKIP + 2471 
51 08 0 C3 00164 31$: SUBL3 SW_NAME_SKIP, #8, R1 3 2473 
Oc AE FF OAS 3 0168 MOV -1TR5),~12(SP) + 2475 
FE71 CF4O 51 6A OC AE 39 00160 MATCHC 12(SP). (R10), R1, P.AANCSW_NAME_SKIP] : 
04 13 0017 BEQ 32$ F 
53 OC AE 00 0017 MOV 12(SP), RS : 
53 OC AE ce 017C 32$ SUBL2 12(SP). R : 
D1 13 001 BEQL 28% F 
04 AE 33 D1 00182 CMP i ITCH. LENGTH, NEXT_VALUE > 2481 
43 1A 001 BGTR ? ; 
58 06 A 01 C1 00188 ADDL NEXT VALUE, SCAN_P OSN > 2485 
2 6B48 91 0018D CMPB {SCANS POSN)CCURR_SWITCH], #35 > 2487 
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97 12 0019 BNEQ 3$ 
8 D6 019 INCL § SCAN_POSN 
56 08 DO 0019 MOVL #8, RADIX 
03 11 00198 BRB 34§ 
56 OA DO 0019A 33$:  MOVL #10, RADIX 
4 04 0019D 34$:  CLRL SWITCH VALUE 
51 6848 9A O98 5$:  MOVZBL (SCAN_POSN)CCURR_SWITCH], R1 
0 51 91 0013 CMPB ORT, «#28 
1c (1F DIAG BLSSU 368 
50 30 A6 SE OOIA OVAB 48(R6), RO 
50 51 D1 OO1AC CMPL RI, RO 
13 1€ OO1AF BGEGU 36$ 
08 AE 5B 01 00181 CMPL SCAN_POSN, NEXT_SWITCH 
gp 1g 0185 BGEG 6$ 
54 6 ¢5 00187 MULL3 RADIX SWITCH VALUE, RO 
54 DO A140 SE 00188 MOVAB -48(R1)CROJ, SWITCH’ VALUE 
5B 06 001C INCL SCAN. SN 
DB 11 001C2 BRB $ 
OO7FFFFF 8F 54 D1 00164 368: CMPL § SWITCH_VALUE, #8388607 
4D 1A 001CB 37$: BGTRU 44$ 
2€ 6848 91 001CD CMPB = (SCAN_POSN)CCURR_SWITCH], #46 
05 12 00101 BNEQ 38$ 
08 56 D1 00103 CMPL RADIX, #8 
42 13 00106 BEQL 44$ 
00 54 £0 00108 38$ INSV.  SWITCH_VALUE, #0, #24, 13(R9) 
22 Ad 04 88 OO1DE BISB2 #4, 34TR9) 
013E 31 OO1E BRW 
4F4D BF 6A Bi OO1ES 398 CMPW ss (R10), #20301 
03 13 OO1EA BEQL 40$ 
0088 31 OO1EC BRW 1$ 
59 04 AC DO OO1EF 408 MOVL FSB, R9 
22. Ad 01 a 001F3 BBC #1, 34(R9), 42$ 
013F 31 001F8 41$: BRW 63$ 
OC AE FF AS 9E€ OO1FB 42$:  MOVAB  -1(R5), 12(SP) 
6A 0C AE 39 00200 MATCHC 1ecsP), (R10), #4, P.AAO 
04 13 00208 BEQL 43$ 
53 OC AE DO 0020A MOVL 12(SP), R3 
53 OC AE ce 00 OE 43$ SUBL2 12(SP); R3 
EA 13 0021 BEQL 41$ 
04 AE 5 D1 00 14 CMPL § SWITCH_LENGTH, NEXT_VALUE 
03 13 00218 BEQL «6 S$ 
0115 31 OO21A 44$: BRW 62$ 
04 ag 01 (€10021D 45$:  ADDL3 #1, NEXT VALUE , SCAN_POSN 
2 6848 91 00222 CMPB) © (SCAN_POSN)CCURR_SWITCH], #35 
Q 12 00226 BNEQ  46$ 
B D6 99 8 INCL  SCAN_POSN 
56 08 DO 0022A MOVL #8, RADIX 
03 11 0022D BRB 
56 OA DO OO22F 46$: MOVL #10, RADIX 
4 pA 0232 47$: CLRL © SWITCH VALUE 
3} 6848 9A 00 48$: MOVZBL (SCAN_POSN)CCURR_SWITCH], R1 
0 51 91 00238 CMPB ORI, #28 
1¢ 1F 00 BLssu  49$ 
50 30 AG i 0 MOVAB 48(R6), RO 
50 51 D1 00241 CMPL RI, RO 
13 1€ 00244 BGEGU 49$ 
08 AE 5B D1 00246 PL SCAN_POSN, NEXT_SWITCH 
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BPASFSS 
1-006 


; Routine Size: 


_BPASDATA 
“BPASCODE 


File 


~-$255$DUA28: CSYSLIBISTARLET.L32;1 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:BPAFSS/OBJ=O0BJ$:BPAFSS MSRC$:BPAFSS/UPDATE=(ENH$:BPAF SS) 


Size: 
Run Time 


; Elapsed Time: 


10 Ag A000 F 
22 «(AD 
5 é 
58 58 
08 AE 8 
0 
FCDB 
50 00000000G 8F 
50 00000000G 8F 
50 01 
838 bytes, Routine Base: 
2634 1 END 
2635 (1 
2636 0 ELUDOM 


PSECT SUMMARY 


AX-11 Bliss-32 V4.0- ae 


13 
16-Sep-19 3: 7 
a aets or 3 ‘33 BASRTL.SRCJBPAFSS.832; 


14 
: 0 16 MOVW 424576, 1 16(R9) 
1 BISB2 
DO 00 MOVL suite LENGTH SCAN_POSN 
C2 00323 61$ SUBL POSN, STRIN GoLENGTH 
¢ é ADDL SEAN “POSN, SORA. Ne ITCH 
D1 CMPL  SCAN-POSN, NEXT~SWITCH 
12 D BNEG 62$ ~ 
31 00328 BRW 1 
DO 00 Q 62$:  MOVL § #BASS$_ILLNUM, RO 
04 00 RET 
DO 0033A 63$:  MOVL ## #BASS_ILLSWIUSA, RO 
04 00341 RET 
DO 00 4g 64$: MOVL #1, RO 
04 0034 RET 


-BPASCODE + OEAS 


End of module BPASFSS 


~-EXTRN LIBSSIGNAL 


Bytes Attributes 
16 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
4585 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
enecsees Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
9776 71 0 581 00:01.0 


COMMAND QUALIFIERS 


4215 egge + 386 data bytes 
01:32.1 
03:46.6 


1 
1-Sap-1984 01:33:55 VAX=11 Bliss-32 V4.0-742 Page 67 


rsa 


; Lines/CPU Min: 716 
; Lexenes/CPU-Min: 14638 
; poneee Ot : 77% pages 
; Compilation Complete 
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